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ABSTRACT 


Software  was  developed  at  the  U.S.  Air  Force  Acadeny  to  support 
development  of  the  USAFA/8086  microprocessor  system.  There  are  three 
primary  modules  consisting  of  the  non-disk  operating  system  (USAFA86), 
the  disk  operating  system  (D0S86),  and  the  disk  interface  software 
(DISK86).  The  first  two  modules  are  written  in  P1M86  while  DISK86  is 
written  in  ASMS6.  An  operator's  manual  is  included  as  an  appendix. 


INTRODUCTION 


The  software  for  the  USAFA/8086  was  written  at  the  U.S. 
Air  Force  Academy  between  August  1978  and  April  1980.  This 
software  was  written  to  the  degree  possible  in  a  modular 
manner  using  PLM86,  a  high  order  language.  The  following 
personnel  were  responsible  for  the  indicated  modules  with 
system  software  integration  and  debugging  performed  by  Cap¬ 
tain  J.  Pollard: 

USAF86  Non  Disk  Operating  System  Captain  J.  Pollard 

DOS86  Disk  Operating  System  Lt  P.  Fits jar rell 

Lt  G.  Rosenberger 

DISK86  Disk  Interface  Routines  Lt  D.  McGrath 

It  is  the  purpose  of  this  report  to  publish  the  software  for 
future  reference  while  at  the  same  time  providing  drawings 
of  the  interrelations  between  procedures  and  short  verbal 
descriptions  of  routine  usage  beyond  the  heavy  comments  pro¬ 
vided  in  the  actual  code  itself.  The  figures  and  diagrams  of  this 
report  show  tally  the  interfaces  between  the  various  software  routines  and 
do  not  imply  timing  or  sequencing  information  in  any  way.  Figure  1  shows 
the  intermodule  relations. 


•FIGURE  1.  MODULE  RELATIONSHIPS 


I.  USAF86  -  THE  NON-DISK  OPERATING  SYSTEM 


The  MON86  operating  system  was  designed  to  support  the 
various  basic  debugging  functions  considered  desirable  in  a 
microprocessor  system.  Based  upon  the  basic  structure  of 
the  simple  operating  system  supplied  with  the  MCS-86  kits, 
this  highly  expanded  and  modified  software  module  supports 
the  following  specific  operating  system  commands: 

S  -  Substitute 
G  -  Execute  (Go) 

L  -  List  to  the  Console  Memory  Data 
P  -  Print  to  the  Microprinter  Memory  Data 
B  -  Set  a  single  breakpoint 
C  -  Clear  the  existing  breakpoint 
F  -  Fill  a  memory  block 
M  -  Move  a  memory  block 

Q  -  Convert  a  binary  formatted  floating  point  number  to  its 
ASCII  representation  and  display  the  result 
T  -  Test  (Invoke  the  diagnostics  sub-module) 

In  support  of  these  commands  within  USAF86  there  exist  eight 
separate  submodules  supporting  the  main  module  USAF86: 

1.  Line  Printer  module 

2.  Console  module 

3.  Arithmetic  module 

4.  Console  Switch/Led  module 

5.  Diagnostic  module 

6.  Command  module 

7.  Interrupt  Service  module 

8.  Timer  Module 

Figure  2  shows  the  basic  relations  of  USAF86  and  its  sub- 
modules. 


Each  of  the  submodules  will  now  be  diagrammed  and  discussed. 
The  line  printer  module  is  shown  in  Figure  >.  Themodule 
provides  initialization  capability  (LP$INIT) ,  plus  the  capa¬ 
bility  to  output  a  single  character  (LP$OUT$CHAR) ,  a  byte 
(LP$OUT$BYTE) ,  a  word  (LP$OUT$WORD) ,  a  string 
(LP$OUT$ STRING) ,  blanks  (LP$BLANKS) ,  a  carriage  return  and 
line  feed  (LP$CRLF) ,  or  a  newline  which  consists  of  ,a  car¬ 
riage  return,  linefeed,  and  two  blanks  (LP$NEWLINE) . 


FIGURE  3.  MICROPRINTER  SUBMODULE  RELATIONS 


The  console  I/O  module  is  the  most  complex  of  the  submodules 
including  some  routines  of  a  rather  miscellaneous  nature 
such  as  DELAY ,  DELAY$LONG,  DISK$BUSY,  INT$INIT,  and 
SI0$INIT.  Some  of  the  routines  could  have  been  (and  perhaps 
should  have  been)  placed  in  other  modules.  The  module  basi¬ 
cally  provides  the  capability  to  retrieve  and  transmit  data 
to  either  a  serial  or  parallel  console  system.  Figure  4 
shows  the  relations  of  the  various  output  procedures. 


FIGURE  4.  CONSOLE  SUBMODULE  OUTPUT  PROCEDURES 


Figure  5  shows  the  console  submodule  input  procedures 


FIGURE  5.  CONSOLE  SUBMODULE  INPUT  PROCEDURES 


In  addition  to  these  routines  the  module  also  contains 
SI0$HEX  and  SIO$VALID$HEX  which  create  or  determine  the 
validity  of  hexadecimal  characters. 

The  arithmetic  module  is  relatively  straight  forward. 
This  module  provides  a  simple,  though  not  necessarily  op¬ 
timal,  method  of  communicating  with  the  AM9511  Floating 
Point  Processor  board.  Figure  6  shows  the  procedures. 


FIGURE  6.  ARITHMETIC  SUBMODULE 


The  console  switches/leds  submodule  consists  of  only  two  in¬ 
dependent  routines  READ$CONSOLE$SWITCHES  and 
WRITE$CONSOLE$LEDS.  The  timer  submodule  is  almost  equally 
simple  consisting  of  three  independent  routines  used  to  ini¬ 
tialize  the  timer  (TIMER$INIT) ,  load  the  timer  (TIMER$LOAD) # 
and  read  the  timer  (TIMER$READ) . 


FIGURE  7.  COMMAND  SUBMODULE 


The  interrupt  service  submodule  consists  of  eight  pro¬ 
cedures  of  a  rather  simplistic  nature  to  artifically  service 
the  8259  Interrupt  Controller's  requests  plus  four  pro¬ 
cedures  to  handle  the  system  interrupts  associated  with  the 
non-maskable  interrupt,  overflow  errors,  division  by  zero, 
and  the  software  breakpoint.  Additionally,  a  procedure  is 
included  for  interrupt  vector  initialization. 

The  final  submodule  to  be  mentioned  is  the  diagnostic 
module.  This  unit  serves  as  a  secondary  control  character 
interpreter  allowing  the  user  to  test  many  of  the  features 
of  the  hardware.  Essentially  these  procedures  interact  only 
through  the  console  I/O  module.  The  tests  are  best  classi¬ 
fied  by  function  as  shown  in  Table  1. 

TABLE  1.  SYSTEM  DIAGNOSTICS 


FUNCTION 

CONTROL 

TYPE 

Ramp  DACS 

R 

Hybr id 

D/A  driven  by  A/D 

H 

Hybr id 

Hybrid  Accuracy 

L 

Hybr id 

Led/Switch  Echo 

C 

Console 

Keyboard/CRT 

K 

Console 

Led  Ramp 

E 

Console 

LSI  Circuits 

I 

System 

Memory  Test 

M 

System 

APU  Test 

A 

System 

Discrete  I/O 

D 

System 

Timer 

T 

System 

Floppy  Disk 

F 

System 

The  basic  operating  system,  USAF86,  reserves  certain  memory 
locations  by  absolute  allocation.  These  are  shown  in  Table 
2. 


TABLE  2.  ABSOLUTE  MEMORY  ALLOCATION 
ABSOLUTE  MEMORY  LOCATION  FUNCTION 


00000  to  00003  Divide  by  Zero  Interrupt  Vector 

00008  to  0000B  NMI  Vector 

0000C  to  0000F  Break  Point  Interrupt  Vector 

00010  to  00013  Overflow  Interrupt  Vector 

00031  to  00034  Current  Disk  Track  Storage 

00036  to  00037  IOPB  Address  Storage 

00080  to  0009F  Interrupt  20  to  27  Vectors 

00100  to  00117  APU  Scratch  Pad  Storage 


The  following  pages  contain  the  heavily  commented  list¬ 
ing  of  USAF86  plus  the  associated  cross  reference  listing. 
To  conserve  paper  no  assembly  code  listing  is  provided. 


PL/N-86  COMPILER  uSAF-36 


ISI5-II  PL/M-86  VI 1  COMPILATION  OF  MODULE  USAF86 
NO  OBJECT  MODULE  REQUESTED 

DJMPILER  INVOKED  BV:  PLM86  :F1:CURRNT.  SRC  DATE<38  APR  88)  NOOBJECT 


*TITLE<USflF-86')  LARGE  OPTIMIZED)  XREF  SVMBOLS  INTVECTOR 
1  USAF86:D0, 

/*  THIS  SOFTWARE  HAS  WRITTEN  AT  THE 
UNITED  STATES  AIR  FORCE  ACADEMY 
DEPARTMENT  OF  ELECTRICAL  ENGINEERING 
(USAFA/DFEE)  IN  SUPPORT  OF  RESEARCH  SPONSORED 

BV 

F.  J.  SEILER  REAEARCH  LABORATORY  « 

THE  AIR  FORCE  FLIGHT  DWAMIC5  LABORATORY. 

THE  ORIGINAL  STRUCTURE  OF  THIS  PROGRAM  MAS 
MODELED  ON  THE  INTEL  CORPORATION,  DEMO-86, 

SOFTWARE  SUPPLIED  WITH  THE  PURCHASE  OF  THE 
HCS-86  HARDWARE  PACKAGE  THIS  OPERATING  SYSTEM 
IS  INTENDED  FOR  USE  ON  THE  USAFA/8886  MICROCOMPUTER 
SYSTEM,  HAS  COMPILED,  LINKED,  AND  LOCATED  USING  THE 
INTEL  MDS-311  SOTTHARE  PACKAGE  THIS  SOFTWARE  WAS 
WRITTEN  OVER  THE  PERIOD  FROM  AUG  1978  TO  MAR  1588  BY 
CAPT  JOE  POLLARD  WITH  SIGNIFICANT  CONTRIBUTIONS  FROM 
MEMBERS  OF  THE  CADET  WING  OF  THE  USAFA. 

THE  PROGRAM  IS  MODULAR  IN  NATURE  CONSISTING  OF  THE  FOLLOWING 
PRIMARY  MODULES  (SEE  SYSTEM  SOFTWARE  DOCUMENTATION  FOR 
ADDITIONAL  DETAILS): 

1)  MICROPRINTER  MODULE 

2)  AM9SU  ARITHMETIC  MODULE 

3)  CONSOLE  I/O  MODULE 

4)  COMMAND  EXECUTION  NQUULE 

5)  INTERRUPT  SERVICE  MODULE 

6)  COMMA®  DISPATCH  MODULE 

7)  DIAGNOSTICS  MODULE 

8)  TIMER  INTERFACE  MODULE 

9)  DISK  INTERFACE  MODULE 

18)  HYBRID  INTERFACE  MODULE 

11)  CONSOLE  SWITCH/LED  INTERFACE  MODULE 

12)  GLOBAL  DATA  DECLARATIONS  V 


SSUBTITLS-  'GLOBAL  DATA  OECLARfi7IONS 

•>  THE  3 -IE  CHAR  IS  •!:&•  33  A  HOLDING  OuEOt  FOP  CONSOLE 
INPUT  *.•’ 

DECLARE  INTIYECTOP  (10»)  POINTER  fiT  <0O000H); 

DECLARE 

CHAR  BVTE  PUBLIC; 

DECLARE 

TRUE  LITERALLV  '0FFA, 

FALSE  LITERALLV  '000HU 
DECLARE 

SIO«K*)  BVTE  DATA  <  GSLMFPBCQTRMKNEAID'  >i 
/*  THE  AH9511  APU  CONTROLLER  USES  I/O  PORTS  10, 12,  AND  14  */ 
DECLARE 

ALUIAUTOfPOPT  LITERALLV  '0014H', 

ALU$CONTROL*PORT  LITERALLY  '0012H', 

ALLttDATAJPORT  LITERALLV  '0010HU 

/*  THE  SVSTEH  USART  IS  LOCATED  AT  I/O  PORTS  21  AND  21  IT  IS 
CONFIGURED  BV  SOFTWARE  FOR  ASYNCHRONOUS,  8  BIT,  NO  PARITY,  16 X 
CLOCK  TRANSMISSIONS.  BAUD  RATE  IS  HARDWARE  SELECTABLE  TWO 
STOP  BITS  ARE  USED.  */ 

DECLARE 

SIO$5TAT$PORT  LITERALLY  '80023H', 

SIO$DATA$PORT  LITERALLV  '08021H' 

SI0$3251$M0DE  LITERALLY  '0CEHU 

SI0$825«RST  LITERALLY  '640H', 

SI0I8251JCNND  LITERALLY  '025H', 

SIOfRXRDV  LITERALLY  '02H', 

SIOITXRDV  LITERALLY  W, 

/*  THE  SYSTEM  INTERRUPT  CONTROLLER  (8259A)  OCCUPIES  I/O 
PORTS  0  AND  2  OPERATING  IN  THE  8086  MODE  AS  A  SINGLE 
CONTROLLER.  */ 

DECLARE 

INTtHASKIPORT  LITERfLLY  '0O2H', 

INTISTATIPORT  LITERALLY  '000H'. 

INT$ICWi  LITERALLV  01irt', 

INTIICH2  LITERALLY  '820K', 

INTIICW4  LITERALLY  WH', 

/*  THE  LIIC  PRINTER  IS  AT  I/O  PORT  FC  */ 

DECLARE 

LPfSTATUSIPOPT  LITERALLY  'B0FCH' , 

LP$DATA$PORT  LITERALLY  WCH  , 

DECLARE 

BREAK*P0INT*OATA<2i  BYTE; 

DECLARE 

BREAK$POINT$FLAG  BVTE; 

DECLARE 

CONSOLE  BVTE; 

DECLARE 

ASCII!*)  BYTE  DATA  !'0122456739A6CDEF'>; 

DECLARE 

ASTERISK  LITERALLY  '2AH', 

ASCR  LITERALLY  W, 

ASlF  LITERALLY  'BAH'. 

ASBL  LITERALLY  '20H'U 

/*  the  three  following  structures  ape  necessary  to  allow  the 

OPERATING  SYSTEM  TO  HAVE  INDIRECT  ACCESS  T0  MEMORY  */ 


ARG1  STRUCTURE  (OFF  WORD,  SCO  WORD) 

AT  (BHEMOKVIARGIIPTR), 

NEMOPYJARGl  BASED  HENQRVIARG1FPTR  BVTE- 

16  1  DECLARE  MEM0RY$ftRG2*PTR  POINTER, 

ARG2  STRUCTURE  (OFF  WORD,  SEG  WORD)  AT  <0MEMORY$ARG2$PTR>, 
MEMORYFARG2  BASED  MEH0RV$RRG2FPTR  BYTE, 

17  1  DECLARE  BREAKIPOINTIPTR  POINTER, 

BKPTR  STPUCTURE  (OFF  WORD,  SEG  WORD’  AT  (@6REAK$P0INT$PTR). 
BREAKPOINT  BASED  BREAKIPOINTIPTR  BYTE, 

/*  T)£  PARALLEL  I/O  CONSOLE  IS  AT  I/O  PORTS  F0  AND  FI  V 

18  1  DECLARE 

KEVBDI5TATIP0RT  LITERALLY  '0GF1H', 

KEYBDIDATAIPORT  LITERALLY  '00P0W', 

CRTIPORT  LITERALLY  '00F0H', 

KEVBDIRDY  LITERALLY  '80H'; 

19  1  DECLARE 

CONSOLEISWITCHIPORT  LITERALLY  '060FEH', 

CONSOLEILEMPORT  LITERALLY  '000FEH'; 

/*  TIMER  IS  SET  UP  TO  BE  BINARY  16  BIT  NODE  4  */ 

20  1  DECLARE 

T I HER$C9NTR0L$P0RT  LITERALLY  '0037H', 

TIMERI8ASEIP0RT  LITERALLY  '0031H', 

TIMER0JMODEINORD  LITERALLY  '034H'. 

TIMER1IHODEIWORD  LITERALLY  '074H', 

T1NER2P0DEIW0RD  LITERALLY  '0B4H'; 

21  1  DECLARE 

DISCRETEtlOlPORTl  LITERALLY  '00F8H', 


DISCRETE#I0*P€RT2  LITERALLY  '00FAH'; 

22  1  DECLARE 

I0P6  WORD  PUBLIC  AT  (08036H);  /*  INPUT  OUTPUT  PARAMETER1  BLOCK  FOR  DISK  10  */ 

23  1  DECLARE 

DERR  BYTE  FTERR  BYTE  EXTERNRL;  /*  DISK  ERROR  MORDS  */ 

24  1  DECLARE 

NAINPROGRAN  LABEL  PUBLIC;  /*  BOOTSTRAP  ENTRY  */ 

25  1  DECLARE 

(ERROR, NEXTICONMAND)  LABEL  PUBLIC; 

26  1  DISK: 

PROCEDURE  EXTERNAL; 

/*  THIS  PROCEDURE  IS  THE  DISK  DRIVER  PACKAGE  UHICH  COMMUNICATES 
HITH  THE  WESTERN  DIGITAL  1791  DISK  CONTROLLER.  THIS  PROCEDURE 
IS  WRITTEN  IN  ASH86  SINCE  PARTS  OF  IT  ARE  TIME  CRITICAL  */ 

27  2  END; 

28  1  DECLARE 

DISKITRACK  (4)  BYTE  PUBLIC  AT  <00031H>; 

29  1  DECLARE 

DISKIRERDV  LITERALLY  W. 

DISK4STATUSIP0RT  LITERALLY  '00C8H', 

DISK«OMMAND*PORT  LITERALLY  '08C8H', 

DISKIRESETfPORT  LITERALLY  '00C4H'. 

DISKIDRIVEIPORT  LITERALLY  09C0H'; 

/*  THESE  DEFINITIONS  DEFINE  THE  I/O  SPACE  OF  THE  DISK  CONTROLLER 
AND  ARE  USED  WHILE  INITIALIZING  THE  DISK  SYSTEM  */ 

38  1  READIDRIVER- 

PROCEDURE  EXTERNAL; 


njjujmji 


14 


■  t 


-- 

■“ 

-P  i  TE  i  '*■  i* 

r1  Jl  *1  *  |I"  i  t  1 

32 

p 

END. 

24 

i 

KOFV*W  I  VEft 

PROCEDURE  E.--.T E?NAt.  • 

35 

2 

END 

36 

1 

SENflME*DR!V£?: 

PROCEDURE  EXTERNAL; 

37 

2 

END; 

38 

i 

ERfiSE*DRIvER 

PROCEDURE  EXTERNAL.. 

29 

2 

END; 

40 

1 

ATTR I BU  TEICHfiNGEfOR  I VER 

PROCEDURE  EXTERNA.: 

4i 

2 

END; 

42 

1 

INITIALIZE: 

PROCEDURE  EXTERNAL 

42 

2 

END.. 

44 

i 

DIRECTORV$LIST : 

PROCEDURE  EXTERNAL.* 

45 

2 

END* 

rV  •  *.  V,  '  'v  “  '  *  *7*; 


PL*-&*  Wide? 
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■Jlff-rK 

MICROPRINTER  HOtA.K_E 


fSUBTPLE  •  NiW'JFRiNTER  MODulE' > 

/*  THIS  MODULE  IS  DESIGNED  FOP  USE  WITH  fl  CENTRONICS  MICROPRINTER 
rtITH  PARALLEL  INTERFACE  »/ 

/*  THE  PRINTER  IS  INITIALIZED  BV  SELECTING  20  CPI  AND  NO  UNDERLINE 
NODE  OF  OPERATION  */ 

46  1  LWNIT: 

PROCEDURE; 

47  2  OUTPUTtLP$DATAlP0RT)=16O; 

48  2  0UTPUT(LP#WTR4P0RT>=16fl; 

49  2  OUTPUT (LP*DflTft$PORT >=350; 

30  2  END; 

51  1  LP40UT4CHAR: 

h  Oft  ARGUMENT  TVPE  BYTE  -  ASCII  CHARACTER  TO  BE  PRINTED  */ 
PROCEDURES  PUBLIC; 

32  2  DECLARE  C  BYTE; 

/*  THE  LINE  PRINTER  READY  BIT  IS  MONITORED  ON  BIT  1  OF  THE  STATUS 
PORT.  V 

53  2  DO  NHILE  (INPUT(LP$STATUS$PORT>  AND  02H)O0; 

54  3  END; 

/*  THE  CHARACTER  TO  BE  KNITTED  IS  THE  SEVEN  LS8S  WHILE  THE 
MSB  IS  i HE  STROBE  WHICH  IS  SOFTWARE  PULSED  ACTIVE  LOW  */ 

55  2  0UTPUT<LP*DATA$PORT>=C  OR  88H; 

56  2  OUTPUT(LP*DATA$PORT)=C  AND  7FH; 

57  2  0UTPUT(LP4DATft$P0RT>=C  OR  88H; 

58  2  END; 

59  1  LP40UT4BVTE: 

/*  ONE  ARGUMENT  TVPE  BYTE  -  THE  HEX  BYTE  WHICH  IS  TO  BE 
INTERPRETS  TO  ASCII  AND  TttN  PRINTS) 

PROCEDURES  PUBLIC; 

6B  2  DECLARE  B  BYTE; 

61  2  CALL  LP40UT $CHRR<  RSC 1 1 (SHR ( 8,  4)  AND  0FH»; 

62  2  CALL  LP40UT*CHAR(ASCIUB  AND  0FH)); 

63  2  END; 

64  1  LP40UT4W0RD: 

/*  ONE  ARGUMENT  TVPE  WORD  -  THE  HEX  WORD  WHICH  IS  TO  BE 
INTERPRETS  TO  ASCII  AND  THEN  PRINTED  */ 

PROCEDURES  PUBLIC; 

65  2  DECLARE  W  WORD; 

66  2  CALL  LP«UT#BYTE(HIGH(W)); 

67  2  CALL  LP$OUT«YTEaflW<M»; 

68  2  END; 

69  1  LP40UTISTRING 

/♦TWO  ARGUMENTS  POINTER, BYTE  -  THE  POINTER  TO  THE  ASCII  STRING 
TO  BE  PRINTED  AND  THE  NUMBER  OF  BYTES  IN  THE  STRING  */ 
PROCEDURE<STR*PTR,N>  PUBLIC, 

70  2  DECLARE  STPtPTR  POINTER,  (N,  I)  BYTE, 

STR  BASED  STR*PTR(1>  BYTE; 

71  2  DO  1=0  TO  N-L 

72  3  CALL  LP*OUT*CHAR(STR<I>>< 

73  3  END, 

74  2  END; 

75  1  LP48LANKS: 

/*  ONE  ARGUMENT  -THE  NUMBER  OF  BLANKS  TO  BE  PRINTED 
PROCEDURE  (N>  PUBLIC; 

76  2  DECLARE  <I,N)  BYTE; 

77  2  DO  1=1  TO  N- 


16 


/*  NO  ARGUMENTS  -  AN  ASCII  CARRIAGE  RETURN  IS  SENT  TO  THE  LINE 
PRINTER  A  LINE  FEED  IS  AUTOMATICALLV  INSERTED  BY  THE  HARDWARE  V 
PROCEDURE  PUBLIC, 


82  2  CALL  LP*OUT$CHAP',  BSCS'; 

82  2  END; 

84  1  LP4NEWLINE: 

/♦  NO  ARGUMENTS  -  A  CARRIAGE  RETURN,  AUTOMATIC  LINE  FEED,  AND  TWO 
BLANKS  ARE  SENT  TO  THE  LINE  PRINTER.  */ 

PROCEDURE  PUBLIC; 


85  2  CALL  LWCRLF; 

86  2  CALL  LP$8LANKS(2); 

87  2  END; 


PL/R-3*  COMPILER 
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97  3 

98  3 

99  2 
188  1 
181  2 
182  2 

183  2 

184  2 

186  3 
188  2 

187  1 


188  2 

189  2 

118  2 
111  2 
112  2 

113  2 

114  1 


115  2 
118  2 

117  2 

118  2 

119  2 
128  2 

121  2 
122  2 

123  2 

124  2 

125  1 


$SU3fITUE  <  CONSOLE  I -O') 

DElAV 

/♦ONE  ARGUMENT  --  THE  #  OF  ITERATIONS  AT  4  MHZ  OPERATING  IN 
EPROM  EACH  ITERATION  TAKES  APPROX  15  MICROSECONDS.  */ 
PROCEDURE  (C>  PUBLIC, 


89 

2 

DECLARE 

98 

2 

DO  i 

91 

2 

C=C-1; 

92 

3 

END; 

93 

2 

END; 

94 

i 

DELAYiLOND 

/•NO  ARGUMENTS  —  A  FIXED  LENGTH  DELAY  ROUTINE  USED  HITH 
CRT  I/O  ROUTINES.  */ 

PROCEDURE  PUBLIC; 

DECLARE  I  BYTE; 

DO  1=1  TO  6; 

CALL  TIMEC5); 

END 

END; 

DISKIBUSY:  PROCEDURE;/*  THIS  PROCEDURE  WRITS  FOR  THE  DISK  TO  BE  NOT  BUSY*/ 
CALL  DELAY(28); 

IF(((N0T(INPUT(DISK$STATU54P0RT)»  AND  DISK«READY)088H)  TVCN 
RETURN; 

DO  WHILE  (NOT ( INPUT (DISK#STATUS4P0RT) )  AND  01H)  O  0, 

END; 

END  DISK48USV; 

IKT»INIT: 

/*  SETS  UP  THE  INTERRUPT  CONTROLLER  AT  POWER  ON  */ 

PROCEDURE; 

OUTPUTT INT$STAT$P0RT)=INT$ICW1; 

/*  DELAYS  ARE  NECESSARY  TO  ALLOW  LSI  CIRCUIT  RECOVERY  */ 

CALL  DELAY  (28); 

OUTPUT( INT4HASK$P0RT)=INT«ICW2; 

CALL  DELAY(28); 

OUTPUT ( INT$MASK$P0RT>=INTtICW4; 

END; 

SIOtINIT: 

/*  SETS  UP  THE  USART  AT  POWER  ON  */ 

PROCEDURE; 

0UTPUT(SI0$STAT*P0RT)=888H; 

CALL  DELAV(28>; 

0UTPUT(SI0»STAT*P0RT)=8; 

CALL  DELAV(2>; 

/*  ISSUE  AS  SOFTWARE  RESET  */ 

0UTPUT(SI0$STAT$P0RT)=SI048251IRST; 

CALL  DELAY<28); 

/*  SELECT  THE  DESIRED  MODE  OF  OPERATION  */ 
OUTPUT(SIO»STAT*PORT>=SIO*8251$NODE; 

CALL  D£LAV(28); 

0UTPUT(SI0$STAT*P0RT)=SI0*8251*CMND; 

END; 

SER1AL«CHAR$0UT 

/*  ONE  ARGUMENT  -  TYPE  BYTE  -  THE  BYTE  TO  BE  EMITTED  BY  THE 
USART  THE  XHITTER  IS  CHECKED  AND  IF  READY  THE  CHARACTER  IS 
OUTPUT.  */ 

PROCEDURES)  PUBLIC; 


18 


132  2  DECLARE  C  BYTE 

/♦  OUTPUT  THE  CHARACTER  WITH  THE  MSB  (STROBE)  LOW  (ACTIVE)  ♦/ 

133  2  C=C  AND  7FH; 

134  2  OUTPUT (CRT$POPT)=C; 

/♦DELAY  13  ITERATIONS  FOR  EVERY  CHARACTER  */ 

135  2  CALL  DELAY(12>; 

/♦  OUTPUT  THE  CHARACTER  WITH  THE  STROBE  HIGH  ♦/ 

136  2  OUTPUT(CRT$PORT)=C  OR  80H; 

/♦  DELAY  LONGER  FOR  SPECIAL  CHARACTERS  SEE  VIDEO  INTERFACE  SPEC  ♦/ 

137  2  IF((C=0CH)  OR  <C=1CH»  THEN  CALL  TINE  (6); 

139  2  IF((C=iBH)OR(C=0AH)OR<C=iAH>Ofi<C=lOH)OR(C=8DH}>THEN  CALL  OELAVUONQ; 

ELSE 

141  2  CALL  DELAY(13>; 

142  2  END; 

143  1  SERIPLFCHAMIN: 

/♦  READ  A  CHARACTER  FROM  THE  USART  WHEN  READY  ♦/ 

PROCEDURE  PUBLIC; 

144  2  DO  HHILE( INPUT(SIOFSTATlPORT)  AND  SIOIRXRDY>=0; 

145  3  END; 

/♦  STRIP  THE  PARITY  BIT  */ 

/♦  RESULT  IS  RETURNED  IN  CHAR  ♦/ 

146  2  CHAR*INPUT (SIOFOATAFPORT)  AND  7FH; 

147  2  END; 

148  1  KEYBDRCHARRIN: 

/♦  READ  CHARACTER  FROM  THE  PARALLEL  KEYBOARD  WHEN  AVAILABLE  */ 
PROCEDURE  PUBLIC, 

149  2  DO  NHILEC INPUT (KEYBDRSTATfPORT)  AND  KEYBDtRDY >=0; 

150  3  END; 

/♦STRIP  THE  PARITY  BIT  ♦/ 

/♦  RETURN  THE  RESULT  IN  CHAR  ♦/ 

151  2  CHAR=INPUT <KEVBD*DATA$PORT)  AND  7FH; 

152  2  END; 

153  1  FORCEJUPPERfCASE: 

/♦IF  A  LOWER  CASE  CHARACTER  IS  DETECTED  THEN  FORCE  UPPER  CASE  */ 
PROCEDURE  PUBLIC; 

154  2  IF  (CHAR>=61H)  AND  (CHAP  <=7AH)  THEN  CHRR=CHAR  -2W 

156  2  END; 

157  1  SIOROUTfCHAR: 

/*  ONE  ARGUMENT  -  TYPE  B°TE  —  ASCII  CHARACTER  TO  BE 
DISPLAYED  AT  THE  CONSOLE  *' 

PROCEDURE  (C>  PUBLIC; 


158  2  DECLARE  C  BYTE,  *  ; 

159  2  IF  CONSOLES  THEN  CAc.  \ 

161  2  IF  CONSC-lE-C  TmDi  Cflu  Cf j 

163  2  E’iy. 

ib4  1  3iui;,.,L‘"lBVTE 

*■  ON::  ^ -■  *;F£  s*’TE  —  rvZ-  3ri£  T-j  OiSFLhYEO  ON 
"  £  0>GvU 


o 


if?  2 

i<->:  2 

167  2 

168  2 
18?  1 


17©  2 

171  2 

172  2 

173  2 

174  1 


175  2 

176  2 

177  3 

178  3 

17?  2 

130  1 


131  2 

133  2 

185  2 


186  2 

187  2 

189  2 

190  1 


191  2 

192  2 

193  2 


194  2 

195  2 

196  1 


197  2 

198  2 

199  2 

201  2 
202  2 
203  1 
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*!  'I  •  ri;1. ; 4-'  ANU  0FH)); 

•I*.-.  s!:Mu,j?IC'n3'ASCC[<B  AND  8FH»; 
c»,r; 

‘••'n£  Av3uNENT-*7YPE  HGRB-HEX  HQRD  TO  BE  DISPLAYED  ON  THE  CONSOLE  */ 
PROCEDURE  <M>  PUBLIC, 

DECLARE  H  WORD 

Chl.  SIOJuUT$B’rT£i,HIGH(W)); 

CALL  SIG*OUT*BVTE\LOH(H»; 

END, 

SIOlOUttSTRING: 

A  TWO  ARGU(£N7S--POINTER,  BYTE— THE  POINTER  TO  THE  STRING  TO  BE 
DISPLAYED  ON  THE  CONSOLE  AND  THE  I  OF  CHARACTERS  TO  BE  DISPLAVED.  */ 
PROCEDURE  (STRJPTfi  N>  PUBLIC: 

DECLARE  STRJPTR  POINTER*  <N,  Is  BYTE. 

STR  BASED  STRIPTR  <i>  BYTE; 

DO  !=0  TO  (Hi 

CAL:.  5I0$0tJTlCHARlSTR',I>); 

END 

END, 

SIOIGETICHAR 

/*  READ  A  CHARACTER  FROM  THE  CURRENT  CONSOLE  */ 

PROCEDURE  PUBLIC; 

IF  CONSOLES  THEN  CALL  SERIAL$CHAR$IN; 

IF  CONSOLES  THEN  CALL  KEYBDICHARtIN; 

CALl  FORCE*UPPEP*CASfc 

/♦  ECHO  THE  CHARACTER  TO  THE  CONSOLE  */ 

CALL  SIOfOUT«CHAR<CHARi; 

/■*  IF  THE  CHARACTER  HAS  AN  X  ABORT  THE  COWHAND  IN  PROGRESS  */ 

IF  CHAP^'X  THEN  GO  TO  NEXTfCOMHAND; 

END. 

SIOFVAIIDJHEX: 

/*  THIS  FUNCTIONAL  ROUTINE  VERIFIES  A  BYTE  AS  A  VALID  ASCII 
REPRESENTATION  OF  A  HEX  CHARACTER  (0-9,  A-F).  */ 

PROCEDURE  *H)  BYTE  PUBLIC; 

DECLARE  H  BVTE; 

IF('0"<=H  AND  HL='90  OR  ('A'<*H  AND  H<='F'>  THEN 
RETURN  TRUE; 

ELSE 

RETURN  FALSE; 

END; 

SICKHEX: 

'*  THIS  FUNCTIONAL  ROUTINE  RETURNS  A  HEX  NUMBER  GIVEN  A  VALID 
ASCII  REPRESENTATION.  */ 

PROCEDURE  (0  3YTE  PUBLIC; 

DECLARE  C  B’-'TE; 

C  -  C  -  30H' 

IF  C  <=9  THEN  RETURN  C; 

ELSE  RETURN  C  -  7; 

END 

SI0IGETI8YTE 

THIS  ROUTINE  MUST  HAVE  A  YALID  CHARACTER  QUEUED  IN  CHAR  ON 
ENTRY.  THIS  ROUTINE  OBTAINS  A  VALID  HEX  BVTE  FROM  THE  CONSOLE 
IF  POSSIBLE.  *t 
PROCEDURE  BYTE  PUBLIC; 
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205  2 

207  2 


289  2 

218  2 
211  2 

212  2 

214  2 

215  2 

216  1 


217  2 

218  2 

219  2 

228  2 

221  2 
222  2 
222  4 

224  4 

225  4 

226  2 

227  2 


221  2 
222  3 

222  4 

224  4 

225  4 


226  2 

227  2 

228  2 

229  2 

248  1 


241  2 

242  i 


■'*  r»E 0r7  jfi  if* •,**+. ID  CHARACTERS  */ 

i*  i  *07 *  l  uf v:AL  { Df  HE/  ■  CHAR  *  >  THEN  GO  TO  ERROR. 

B  0.* 

.■*  PACK  THE  m  8VTE.  OHlV  ONE  8VTE  IS  RETURNED 
CGM5I57 TNG  OF  THE  LAST  TWO  VALID  ENTRIES  */ 

DO  WHILE  5 1 OIVAl I DlhEX *XHRR ; 

B  -  SHL  <  B  ■  4 ;  ■ +S I  OlHtX  v  CHAR  •*  ; 

CALL  SIOSGETSGHAfc 
END, 

7+  E:<IT  CONDITIONS  ARE  CR,  BLANK.  OR  COMMA.  */ 

IF  CHAR  -  ASCR  OR  CHAR  =  ASBL  OR  CHAR  =  *  THEN  RETURN  B; 

03  TO  ERROR 
END: 

SIQ$£ET$WORD 

/*  ROUTINE  GETS  A  WORD  FROM  THE  CONSOLE.  ADDITION  AND  SUBTRACTION 
ARE  PERMITTED  OF  A  SECOND  WORD  PRIOR  TO  ENTRV.  V 
PROCEDURE  WORD*  PUBLIC; 

DECLARE  (SAVE*  M>  WORD,  OPER  BYTE; 

OPER  =  '*'i 
W  =  0i 
SAVE  =  0; 

/*  FORM  A  WORD  ALWAYS  PLACING  THE  CURRENT  WORD  IN  SAVE  */ 

CO  MHi-E  TRUE; 

DO  WHILE  5IQ$VRLID$HEX(CHAR); 

SAVE  =  SHLvSAVE-  4)  +  D0U8L£<  SIQ*HEX(CHAR>>; 

CALL  SIO*GET$CHAR; 

END; 

/♦  IF  ADD  OR  INITIAL  INPUT  STORE  IN  W  */ 

IF  QPER*'+'  THEN 
W  =  U  +  SAVE; 

ELSE 

/‘OTHERWISE  SUBTRACT  */ 

U  =  W  -  SAVE; 

/*  TERMINATES  ON  COLON,  COMMA,  OR  BLANK  */ 

IF  tHAR=ASCR  OR  CHAR*':'  OR  CHAR*'#'  OR  CHAR=AS8L  THEN  RETURN  M:. 

IF  CHAR*'+'  OR  CHAR*'-'  THEN 
DO; 

OPER  =  CHAR; 

SAVE=0, 

END; 

Else 

/*  ABORTS  IF  ENTRY  IS  NOT  VALID  THROUGH  SYSTEM  ERROR  ROUTINE  */ 

GO  TO  ERROR » 

CALL  SIOWETSCrfAP; 

END 

END; 

SlOIGETiADDR: 

.«  ROUTINE  GETS  AN  ADDRESS  (SEGMENT: OFFSET)  ONE  ARGUMENT— TYPE  WORD— 
A  DEFAUlT  SEGMENT.  */ 
c ROCEDURE < DEFAULT IBASE )  PUBLIC. 

DECLARE  DEFAUlT*6A5E  WORD; 

ARAL  SEG  *  DE{rhLiTJBASE; 

•^Gi  Ofz  -  SiOIGETfWORD; 

CO  WHILE  LHnR  =, 

CALL  SI0IGE7#CHSR« 


i/M-v  c*W 
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246  l 

247  ! 

248  2 

249  2 

256  1 


251  2 

252  2 

253  3 

254  3 

255  2 

256  1 


257  2 

253  2 

266  2 
2 62  2 

264  2 

265  1 


266  2 
267  2 

263  1 


269  2 

276  2 

271  2 

272  1 


273  2 

274  2 

275  2 

276  3 

273  3 

273  3 

280  3 

281  4 

282  4 

233  4 

234  4 

235  3 

2*6  3 

238  3 

239  2 
293  i 


2£’i  -  h7  jI  OFF; 

^9’ii  OF*  r  5 1  Of  jtT$fciffiu; 

EHl‘ 

E^i, 

S!'3fiWK:: 

,  *  OUTPUTS  N  BLANKS  TO  ThE  CONSOLE  */ 

PROCEDURES;  PUBLIC; 

DECLARE  u  H>  BVTE, 

00  1=1  TO  N; 

CALL  SIOJOl,T*CHAR(ftSBL>, 

END 

crtO; 

SIOICRLF' 

/*  OUTPUTS  ft  CARRIAGE  RETURN,  LINEFEED  TO  THE  CONSOLE  */ 
PROCEDURE  PUBlIC.; 

CALL  SIO*3UTfCHflR(flSCR.); 

IF  CONSOLES  THEN  CALL  SIOROUTJCHflRtASLF); 

IF  CONSOLE-2  THEN  CALL  CRTfOJT'lBH); 

IF  CONSOLES  THEN  CALl  CRTtOUTOflH); 

END, 

SIOINEHLINE: 

/*  OUTPUTS  ft  CARRIAGE  RETURN,  LINE  FEED  TO  THE 
CONSOLE.  V 
PROCEDURE  PUBLIC; 

CrLL  SIOSCRLF, 

END. 

PPOHPT: 

/*  OUTPUTS  ft  LINEFEED,  CR,  AND  ASTERISK  TO  THE  CONSOLE  *V 
PROCEDURE; 

CALL  SlOfNEHLINE; 

CALl  aIG*OUT*CKAR<ft$T£ftI$!0; 

END; 

DISPlflttOHTWfiRfiftV . 

PROCEDURES.  N)  PUBLIC; 

y*  THIS  PROCEDURE  D1SPLAVS  »  DATA  BYTES  IN  HEX  BEGINNING 
AT  POINTER  ft  EVERY  16  BVTES  STflRTS  ft  NEW  LINE  */ 
DECLARE  ft  POINTER,  N  BVTE,  I  BVTE,  H  BVTE; 

DECLARE  8  BftSED  ft  (!)  BVTE; 

DO  WHILE  TRUE, 

IF  <N>16  '  THEN  M=16; 

else 

N=N: 

N=N-N; 

DO  1=9  TO  thb 
CALL  SIGTUUTICHftR’. ' 

CALL  SIO*OUT$8YTEvBcI», 

CAL'.  S  IG#fjo  T f CHAftL '  ;; 

END, 

CALL  sio-inehline 

IF  *K16  THEN  RE'uRN; 

ENi . 

END 

PCNSOlEIIDENT 

yt  IDENTIFIES  ThE  CONSOLE  ftS  EITHER  ft  SERIAL  DEVICE  (1)  OR  ft 
PARALLEL  DEVICE  \Z-  WURIN&  SYSTEM  INITIALIZATION  FIRST 
DEVICE  TC  F RESENT  ft  CHARACTER  IS  SELECTED  AS  THE  CONSOLE  */ 


22 
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v’> 

!F(!NFUT|  SiO*STATfPuRf>  AND  SiO*RXRDYX>0  THEN  CONSOLES 
IP •;  INPUT '•  Kt,'fc£,fSM?fPGftT )  M  KEVBBiRDY)Q8  THEN  CONSOLES 

ENt.‘- 

>  STRIP  PARITY*  STORE  RESUlT  IN  CHAR  */ 

IF  CONSOLE  =1  Then  ChAR= INPUT <S  ICXOhTAIPORT )  AND  7FHi 
IF  CONSOLE  -2  Then  CHAR  =INPUTCKEVBD$DATA$PORT)  AND  7FH, 

CALL  S I  OtOUT  $CHAR CHRP  >  • 

/'*  NOTE:  THE  TTV  WILL  ALWAYS  APPEAR  READY  IF  U5ART  IS  NOT  IN  THE 
SYSTEM  SIMILARLY  THE  KEYBOARD  LOOKS  READY  IF  KEY8D  STATUS  PORT 
IS  REMOVED  */ 

END; 

SUPPRESSI3LANK5 : 

PROCEDURE  PUBLIC; 

/♦  THIS  PROCEDURE  GETS  ONE  CHARACTER  FROM  THE  CONSOLE 
SUPPRESSING  ALL  LEADING  BLANKS.  */ 

CALL  S!0*GET*CHAR; 

DO  WHILE  CHAP-ASeL; 

CALL  SIWGETKHAR; 

END 

END; 

USERJIOIGETICHrR. 

PROCEWRE  FOBLICj 

/*  THIS  PROCEDURE  IS  IDENTICAL  TO  SIO$GET$CHAR  BUT 
DOES  NOT  ABORT  AUTOMATICALLY  ON  THE  CHARACTER  X.  */ 

IF  CONSOLES  THEN  CALL  SERIALICHARIIN; 

IF  CONSOLES  THEN  CAll  KEVBDICHARfIN; 

CALL  FORCEiljpAERlCASE; 

CALL  S I O$0U T JCrtAR  ( CHAR ); 
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318  1 


319  2 

320  2 

321  2 


322  2 

323  2 

324  2 

325  1 


326  2 

327  2 

328  2 

329  2 

339  2 

331  2 

332  1 


333  2 

334  2 

335  2 

336  1 


337  2 

33?  2 

339  1 


340  2 

341  2 


342  2 

343  2 

34-»  2 

345  2 

346  2 

347  2 

348  2 

349  2 


riot  r'XLt  •'  -1"  lIri:i"K  »D0L£  ; 

.  APU  *505  M’l  570RE0  E.:?Uf£MT  IN  LOWEST  ADDRESSED  BVTE  •/ 

*0  PlCATING  POINT  WORDS  rtuST  START  IN  ft  LOCATION  WHERE 
TmE  Ml  lSB'S  ARE  ZERO  I.  EL  0,4,8  OP  C  ftS  THE  LAST  DIGIT.  */ 

ALUJCUTINOPD 

*  GIVEN  AN  ARBITRARY  ADDRESS  tSEG.OFF)  FIND  AN  ADDRESS  USED  BY  THE  APU 
ANt-  OUTPUT  4  6--!TES  OF  DATA  AUTOMATICALLY  TO  THE  APU.  */ 

PROCEDURE' FLTIADR'  PiJ6LiC, 

DECLARE  Fl^ADP  POINTER; 

C€CLARE  FLTIPTR  POINTER, 

FlTIPORS  STRUCTURE' OFF  WORD,  SEG  WORD)  AT  (0FLTIPTR); 

FIT1PTP=FlT$ADP 

/*  TRUNCATE  THE  4  MSB  AND  ISSUE  ADDRESS  TO  CONTROLLER  FOR 
AUTO  XFER  TO  AM951L  */ 

FlTIADRS.  OFF=FlT*ADRS.  OFF+SHLCFLTIADRS.  SEG,  4); 
iXITWCRD'  ALUIAi.iTO$FORT>=FlT»ADRS.OFF  AND  0FFFCH; 

END; 

ALUIINIWORD 

/*  SAME  AS  ABOVE  EXCEPT  THE  XFER  IS  FROM  THE  APU  INTO  MEMORY  */ 

PROCEDURE*  FLTfPDR)  PUBLIC; 

DECLARE  FLTIADR  POINTER; 

DECLARE  FLTIPTR  POINTER, 

FLTIADRS  STRUCTURED  WORD’,  SEG  WORD)  AT  (0FLTIPTR); 

FLT$PTP=PLT$ftDP. 

FLTIADRS  OFF=FLT$ADRS  OFF+SHlCFLTIADRS.  SEG, 4); 

QUTWGRD *.  AlUIPUT 0IPORT > = (FLT $ ADRS.  OFF  AND  0FFFCH)  OR  0001H; 

END; 

ALUICMNWHQRO 

/*  ONE  ARGUMENT— RN  AM9511  INSTRUCTION  CODE  */ 

PROCEDIJPE  (B>  PUBLIC; 

DECLARE  B  BYTE. 

OUTPUT ( flLUICONTRQLIPORT ) =8; 

END; 

flLUISTftTUSIWORD. 

/*  FUNCTIONAL  ROUTINE  WHICH  RETURNS  THE  AM9511  STATUS  WORD  */ 

PROCEDURE  BYTE  PUBLIC; 

RETJRN  INPUT CRLUICONTROLIPORT); 

END, 

CONVERTITOIFLOAT ; 

/*  OPERATING  SYSTEM  ROUTINE  USED  TO  DISPLAY  FLOATING  POINT  NUMBERS 

ON  THE  CONSOLE  */ 

PROCEDURE  <.N)  PUBLIC;/*  ONE  ARGUMENT  TYYPE  BYTE  IF  0  THIS  ROUTINE 
DISPLAY'S  THE  FLOATING  POINT  NUMBER  POINTED  TO 
BY  MEMIARuifPTR.  */ 

DECLARE  N  BYTE; 

DECLARE  FlTIADRS  WINTER,  FlTIAOR  STRUCTURE<OFF  WORD,  SEG  WORD)  AT  (0FLTIADRS), 
FlTJDATR  based  FlTIADRS  <4>  BYTE; 

USES  MEMORY  AT  08100  AS  SCRATCH  PAD  */ 

DEClIWE  SCRATCH* 4  ■  BVTE  AT  '.001O0H.', 

DECLARE  ONE* 4,'  BYTE  AT  <00104H>; 

DECLARE  'EN'4  .  BtTE  AT  (00108H); 

DECLARE  ONES*  4'  BYTE  DATA  *00H,  0FFH,  BFFH,  8FEH); 

DECLARE  AU10St*tEN'..4>  BYTE  AT  (00114H); 

DECLARE  Al’!0STIT£nS*4)  8YTE  DATA  (04H,  9FH, 0FFH, BFFH); 

DECLARE  TENS' 4  -  BYTE  DATA  <B4H  0A0H,  0BH,  0BH), 

DECLARE  RES*. 4,-  BYTE  AT  (0010CH); 


>;  x,x-r.  •* 


36 


2  Cj’.'i*  ■:*r£ 

i5i  2  C'C CC;rLrYFCrtAR'4  ■  8'  ?£  HT  '.88118H); 

352  2  viv-A?t  Eri''E:L'i3pLA'i 1  i  ■  £•!£. 

353  2  LEClAPE  ■£,. Pi.  EXFi)  EfiFFSlufL  !“bIGN.’  I)  B^TE< 

/■»0E7  A  CHARACTER  *,• 

354  2  FOR  COMPILER  */ 

355  2  IF  *=0  THEN  GO  TO  FLOATlNGFDlSPUWi 

357  2  CALl  S'JpPRESSFBLAhKS; 

GET  AN  ADDRESS;  DEFAULT  5EG  IS  ZERO  */ 

353  2  CAlL  SIOFtSETFADDR-O); 

359  2  FL0A7INGFDISPLAV- 

COONT=30H: 

350  2  FLTtm  OFF-mi  OFF  AND  OFFFCHj 

361  2  FITFADR  SEG=ARGI  SEG, 

362  2  IF  <FLTFOATftL0)*0>  AND  (FLTFOATA(1>=0)  AND  <FLTFOATA(2)=0)  AND 

<FLTFDATAG)=0J  THEN  GO  TO  ZEROFEXIL 
/«  SET  UP  SCRATCH  AREA  V 

364  2  DO  1=0  TO  3, 

365  3  SCRATCH'.  I  >=FLT$OATA<  I  r, 

3 66  3  ONEvI;=ONESU.*, 

367  3  HLHfjSTFTENa,'=ALMOSTFTENS'D; 

368  3  TEN(I>=TENS\I); 

369  3  END;  • 

/*  STRIP  THE  HANTISSA  SIGN  */ 

378  2  1SIGN*SCRATCH(e;-  AND  80H, 

371  2  SCRATCHvO)  =  SCRATCHC0)  AND  7FH; 

/*  CHECK  FOR  A  NUfitR  GREATER  OR  EDUAL  TO  ONE  AND  LESS  THAN 
TEN  IF  GREATER  THAN  TEN  DIVIDE  REPEATEDLY  BY  TEN  INCREASING 
THE  EXPONENT  APPROPRIATELY.  IF  LESS  THAN  ONE  NJlTIPLY  BV  TE& 
DECREASING  THE  EXPONENT  EACH  TIME  */ 

3?2  2  TSTFLPICAlL  AUJtOUTWCiftt"mHOST$TENC0»; 

373  2  CAL  AU#OUT#NORD'0SCRATCN(0»; 

374  2  CALL  ALUFCWOFHORCkIIH),  /*9. 99-SCRATCH  */ 

3?3  2  CALL  ALUFIhFMORD'jRESLB)); 

376  2  IF  (RES<0.>  AND  80H)  O  0  TAN  GO  TO  DIVIDEFLOOP; 

378  2  TSTFLR2CALL  AlUFGUTFHORDv@ONE<.0>>; 

37?  2  CALI  ALUfOUTFKGRD(0SCRATCH<0)  >; 

380  2  CALL  AUFCMNt'FMORDCllH), 

381  2  CAL'.  ALU#INFwM>a»RES'.0»i 

382  2  IF'REE'0)  RND  80H)  =  0  TAN  GO  TO  HULTFLOOPj 

384  2  GO  TO  PROCESS; 

385  2  W-tTflOOP 

EXPF5IGN=1.; 

386  2  CCHWT*COlWTi-l, 

387  2  CAll  ALUFODT FHOROv ^SCRATCH', 9 ) ); 

288  2  CALL  ALUFCUTFHORD^TENO)); 

385  2  CALL  RLUFCMND JMORD < 12H ) ; 

290  2  CAL  AL'JFINFHO«SK0SCRATCHL0))i 

391  2  S3  TO  TSTFlP2; 

292  2  DMOEFlOC* 

£.vFiSIGNr'j. 

293  2  C'2L'NT=COCNf+l> 

294  2  CALL  SjjF0UTFHuRD<0SCRRTCH<0.»3; 

395  2  CALL  AL'.!FOL‘riwORD'.0TEN(0;/< 

296  ?  CAi.»  AluIC ANOFfcORD*  12rt  >; 

397  ?  ALCF ;NFWOPD\sSCRATCH,,0,1  >> 
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798  2 


299  2 

460  2 

481  2 

402  2 

404  2 

465  3 

466  3 

467  3 

408  3 

409  3 

419  3 

411  3 

412  3 

412  2 

414  2 

416  2 

417  2 

413  2 

419  2 

420  3 

421  3 

422  2 

422  2 

424  2 

425  2 

426  2 

427  2 

429  2 

436  2 

431  2 

432  2 

432  2 

434  2 

435  2 


TO  TrfL?; 

>  6- 7r*£  ■  ^riSSH  DIGITf  OFF  8V  hULTIPLYHfi  AND  INTE9ERIZING  */ 

PROCESS ; 

CRLL  AL-jSO-JT iwOFD tfSCPRTCH*; U> ); 

DO  1=0  TO  7. 

IF  I“0  THEN  GO  TO  9y*PRSS$HUlT!PLV, 

CHLL  HlulOU T 'SWORC- C0TEN», 8.0i 
C*1  0LUlCf^Ni^jRi>(12H),  /*  flULTIPLY  BV  TEN  */ 
ev^6S$MULTiPLV: 

CRLL  0LOICWDlwORT*a7H>;  /♦  PUSH  ft  COPY  */ 

CHLL  AL JiCNNDttiGRD K 1EH>;  /*  FIX  IT  */ 

CRLL  PL' JlCHNC'liiORiK 37H>;  /*  PUSH  R  COPY  */ 

**  SAVE  IN  m  HRPftV  V 

CRLL  flUJffflMQRD  <0DISPLHV$CHfiR>; 

SWE$DISPLflY<  1 )  =DISPLRYSCrtfiRtf  >; 

CRLL  RL^CMNC'IWORDdCH);  /♦  FLOAT  THE  FIXED  COPY  */ 

CRLL  RLU*CMNCi$NORD(llH>;  /*  SUBTRACT  */ 

END: 

CRLL  SIOIBLANKSlS); 

/*  OUTPUT  THE  SIGN  OF  THE  MANTISSA  */ 

IF  H5IGNO  8  THEN  CRLL  SIQtOUTICHRRC-'); 

ELSE 

CRLL  SIQIOUTfCriARC'*' >; 

/*  OUT°UT  THE  HOST  SIGNIFICANT  DIGIT  */ 

CRLL  S 1 0  FO*J  r  rc  C  BSC  1 1  ^  Sft^TE I  SPLAY  0>  >  > ; 

/*  OUTPUT  THE  DECIMAL  POINT  */ 

CRLL  SIWOUTICHRRr  '); 

/*  OUTPUT  THE  REMAINDER  OF  THE  MANTISSA  */ 

DO  M  TO  ?> 

CRLL  SIQiOUTfCHftP f,RSCIU SAVEIDISPUW I » ); 

END; 

/*  FIND  THE  EXPONENT  V 

expi=  count  m  i& 

COUNTsCOUNT/10/ 

E  <P2-  COUNT  HOD  16: 

/*  OUTPUT  R  BLANK  */ 

CRLu  510*00 r*CNRR  C  Oi 
/*  OUTPUT  RN  E  m  EXPONENT  V 
CRLL  SIQfOUTICHflR  <E'>; 

A  OUTPUT  THE  EXPONENT  SIGN  */ 

IF  EXM51GNG0  THEN  CRLL  SIC^TICHARr-'}; 

ELSE 

CRLL  SiO*QUT$CHRR</*F}> 

A  OUTPUT  THE  EXPONENT  */ 

CRLL  SI0«Ur*CH*<fl9M  I  <EXP2»; 

CRLL  SICiaWRRRvRSiCIUEXPl)); 

RETURN; 

ZERMEXIT: 

CRlL  SI0$BlANKS(5>; 

CRLL  SIOfOUTlbTRINGC^t/a  06000  E+80  >,12>; 

END; 

f INCLUDE  <ft  CONSOL  PlM> 
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:b  0 

'  ■  -  -  -Kv.^- 

_ 

t:!.:8T'T,-E  v.:i£j.S  r-4  Lr  Irs/Lct*  f&xE 

- 

•  *  :‘4Zzi  P'j-jTIffca  iLLjr'i  :hE  COKSCix  SWITCHES  TO 

BE  *i9fj  #ij  THE  CONSOlE  lEi*S  TO  BE  WRITTEN  USING  SVSTEH  OILS  */ 

436 

1 

RE'rtL*f  CONSQlEjSwI  TCH£S . 

= 

PROCEDURE  mb  PUBLIC- 

437 

2 

= 

RETURN  myi'i CGhSQLE$SrfITCH$PORT).> 

438 

2 

5 

ENO.: 

439 

1 

r 

HPITEICONSOLEiLEOS : 

s 

PROCEDURE*,  VRLUE 1  PUBLIC; 

449 

2 

= 

DECJSE  VflLJt  WORD* 

44i 

2 

DUTl40RD<  CONSOLE*LED$PORT ,*  *VAUJE; 

442 

2 

= 

END; 

■J  INCLUDE  (Fi.Tit©?.  ?l«> 


i 

~  f  ’ 
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1  f I 7l-£ '  'if'?"'  ffOO’jLt  f 

-  ’  THIS  PCC-vlE  la  DEvclOPED  FOR  THE  8253  TIBER  USED  IH  THE 

*  USrPA  S <5:fc  aVSTEfl  OLOfcriL  DECLARATIONS  OF  THE 

=  TIME;  rHjC-E  H0PD5  AND  TWER  PORTS  ARE  REQUIRED 

=  FOP  COMPILATION  V 

442  1  =  TIHEPlINIT 

a  PROCEDURE: 

444  2  =  OUTPUT<T!IERICONTROLIPORT)3TIHER0$HQD£$MORD; 

445  2  3  CALl  DEU M2); 

446  2  *  OUTPUT <  T1MER$CONTROl$PORT)*T IHERUNOCEtUORDi 

447  2  =  CALL  DE‘-AV<2>; 

448  2  =  OUTPUT  <  T !  f€R$CQN  TROLIPOR  T )  =TI  f€R2$M0DE$WJRD> 

449  2  =  CALL  DELAVC2); 

450  2  =  END 

451  1  =  TIMERHOAD 

=  PROCEDURECVALUE,  N)  PUBLIC; 

452  2  =  DECLARE  VALUE  HORD.N  HORD,  DATA4P0RT  WORD, 

452  2  =  IF  N>2  THEN  GO  TO  TIHERJERROR, 

455  2  =  DATAIPOPT-TIHERIBfiSEIPORT+M'i 

456  2  =  OUTPUT (DATA$PORT^=LOfck  VALUE); 

457  2  =  CALL  DELAV',2); 

458  2  *  OUTPUT>DRTR$PORT)=AIGH( VALUE); 

459  2  =  RETURN. 

460  2  =  TIHEWERROR:  CALL  SIOfNENLINE. 

461  2  =  CALL  SIOtOUT»STRING(0( 'TIMER  LOAD  ERROR- ),  16); 

462  2  =  END/ 

463  1  =  THCRfREAD: 

=  PROCEDURES)  HORD  PUBLIC; 

464  2  =  DECLARE  N  HORD.  DATAJPORT  HORD/  VALUE  HORD/  A  BVTE; 

465  2  =  IF  N>  2  THEN  GO  TO  TIMETERROR, 

467  2  =  DflTA$P0RTaTlMERIBASE«P0RT4«*2; 

468  2  =  A=INF“JTfDATA*Pi3RT); 

469  2  =  VALUEaSHLCD0UBLE<INPUT(DATA»PflRT»/8)  +  DOUBLES); 

470  2  =  RETURN  VALUE: 

471  2  =  TIMEtERROR:  CALL  SIQFhEHLINE. 

472  2  =  CALL  SIOfOUT*STRING«(‘ 'TIMER  READ  ERROR'),  16); 

472  2  =  END, 


♦INCLUDE  <:F1  DIPGS.  PUD 
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474  1  = 


475  2  = 

476  2  = 

477  2  * 

478  2  = 

479  2  = 

488  2  * 

431  2  = 

4*2  2  = 

482  3  = 

484  2  = 

485  3  = 

487  2  = 

488  3  = 

489  3  = 

491  3  = 

492  2  " 

494  3  = 

495  2  = 

496  2  = 

497  2  = 

498  2  = 

49*9  2  = 

580  2  = 

581  2  = 

562  2  = 

583  2  * 

504  2  - 

565  2  = 

506  1  * 


FSl'B7'  yih2.V' £717 

‘Hi;  'U>Xl‘-i  CONTAINS  TESTS  WrtiCH  ALUW  THE  MANIPULATION 
OF  v'ARiOjS  SvSTEH  COFlPuNEN 7 S  INCLUDING; 

1..'  ?€r’ORv  TEST  <H> 

2>  MC  SFI?  TEST  <8/ 
l>  OAC  OUT-  ADC  IN  <L) 

4>  OAC.'  ADC  LOOP  (H) 

5  '  COHSOL£  LED/SmITCH  (C) 

6'  LSI  CIRCUIT  TEST  (I) 

7  >  KtYBfr.-  CONSOLE  TEST  \K) 

8)  TIMER  TtST(T> 

9;  OPiJ  CONTROLLER  TEST  <B) 

10)  APO  TEST  <A> 

11  >  DISCRETE  I/O  LOOP  TEST  <D) 

12)  CONSOLE  LED  RAMP  TEST  (E) 

12)  DISk  IOPR- HARDWARE  TEST  (F) 

THE  NODULE  IS  INVOKED  FROH  THE  COMMAND  NODE  B V  ENTERING  T. 

A  SECONDARY  COMMAND  IS  REQUIRED  TO  ENTER  A  SPECIFIC  TEST. 

CHARACTERS  ARE  INC  HOATED  AT  THE  END  OF  THE  LINES  ABOVE  */ 

NENORVITEST- 

PROCEDURE  /*  THIS  TEST  DOES  NOT  GUARANTEE  NO  MEMORY  FAULT 
IT  IS  MERELY  MUCH  LESS  LIKELY  */ 

/*  ROUTINE  TESTS  RAM  MEMORY  WITHIN  A  REQUESTED  SEGMENT 
FOP  FIRST  FAILS)  LOCATION  */ 

DECLARE  TEST  BYTE; 

CALL  SIO5OUTISTRiNGC8<'EM0RY  TEST  ),  10); 

CALL  SIOINEWlINE; 

CALl  SIOJOOTISTPiNGI*'. '  ENTER  STARTING  ADDRESS: O, .23); 

CALL  SIMGETJCHARj 
CALL  SIOIGET$ADDR<0>; 

TEST-TRUE; 

DO  WHILE  T£ST=TRll£; 

M£MOPY$ARGlr55H;  /*  WRITE  ALTERNATING  BITS  (01810101)  TO  EACH  LOCATION  */ 

CALL  DELAV(l); 

IF  MEMORVIARG1  O  55H  THEN  TEST=FALSE;  /*  VERIFY  THE  DATA  WRITTEN  */ 
MEHQRYtARGl=0AAH;  /*  WRITE  OPPOSITE  PATTERN  (10101010)  V 
CALL  DELAV(10)i 

IF  MEMORY IARG1  O  0AAH  THEN  TEST=FALS£; /*  VERIFY  DATA  WRITTEN  */ 

ARC!  OFF  =  ARGi  OFF  +  1;/*  INCREMENT  THE  OFFSET  */ 

IF  ARGI  'OFF  =  90000H  THEN  GO  TO  EXITIOONE;/*  VERIFY  NOT  AT  THE  MAX  OFFSET  •/ 
END; 

ARGi  QFF-ARG1  OFF-1;/*  IF  ERROR  DECREMENT  OFFSET  AND  PRINT  WARNING  */ 

CALL  SIOINEMLINE, 

CALL  SIOfOUT$STRING(@(  MEMORY  FAILED  AT  ',',17); 

CALL  S I OIOU  TH-iORD  <  ARGI.  SEG); 

CALL  SI OlOuTICHAR >; 

CALL  SIOIOUTIWORD<  ARGI.  OF); 

CAll  SI0f0UT«STRING(8(  WITH  THE  VALUE  0,16); 

CALL  SIOfOUTIBYTE1  MEMORYIARGl); 

CALL  SIOINEMlINE, 

EXITIOONE  GO  TO  NEXTICOMMAND; 

END; 

/*  */ 

DAC1RAMPITES7 

PROCEDURE, /*  STARTING  FROM  0  VOLTS  AND  GOING  TO  +100  AND 
THEN  TO  -130  BACK  TO  ZERO  FOR  GIVEN  DAC.  A  RISING 
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507  2  3 

508  2  3 

509  2  3 

510  2  3 

511  2  = 

512  2  3 

512  2  3 

514  2  3 

515  3  3 

516  2  3 

517  3  3 

518  2  3 

519  2  3 

520  1  3 

s 

521  2  3 

522  2  3 

523  2  3 

524  2  3 

525  2  3 

526  2  3 

527  2  3 

528  2  = 

529  2  3 

538  2  3 

531  2  3 

532  3  3 

532  3  3 

534  3  3 

535  2  3 

526  1  3 


537  2  3 

528  2  3 

529  3  3 

540  3  3 

541  2  3 

542  1  3 


543  2  3 

544  2  3 

545  2  3 

546  2  3 

547  2  3 

548  2  3 

549  3  3 

550  3  3 

551  2  3 

552  2  3 

553  1  3 


TRIANGULAR  WAVE  WITH  NO  IMPERFECTIONS  SHOULD  BE 
Ot?SEP*&  BV  MONITORING 
DEClARE  I  WORD,  9  WORD,  8RSE  WORD; 

CALL  3IO*OuTJSTRIHG<0t  W  DACS  ),8;, 

A=0, 

CfllL  SIOJNEUILINE; 

CALL  SIOIOUTSSTRING  <0('ENTER  PORT  NUH6ER :  0, 18>; 

CALL  SIO*GE'*CHAR; 

B0SE=SIO<GcTIWORO; 

DO  WHILE  TRUE; 

GfJTWORD'8ASE,*=A, 

0=8*1. /*  DACS  USED  ARE  12  BIT  */ 

CALL  0ELAV<2>; 

END. 

END. 

DACIADCILOOP 

PROCEDURE;  /*  TRANSFERS  CH  X  ADC  TO  CH  Y  DAC  V 
DECLARE  IMPORT  WORD.  OUTPORT  WORD; 

C0Ll  SIO$OUT*STRlNG<.0-:/V8RID  LOOP  ).  10); 

CALL  SIOR£W$LINE. 

OIL  SIOtOUT$STR!NG(0<  ENTER  DAC  PORT:'),  15); 

CALL  SICWGETICHAR; 

MmT=SlQX£Ttm>i 
CALL  SIOtNEWLINE; 

CALL  SIO*OUT*5TRING(0( 'ENTER  ADC  PORT:'),  15); 

CALL  SlQUjETtCm, 

INPORT- S I 0#GET SWORD, 

DO  WILE  TRUE; 

OUTWORD' OUTPORT)3INWORD( INPORT); 

CALL  D€tAV(2>; 

END; 

END 

CONSOLEILED$SWITCH$TEST : 

PROCEC'URE; 

/*  CONSOLE  SWITCHES  ARE  SENT  TO  THE  CONSOLE  LEDS  V 
CALL  SIOtOUTISTRING(0'. '  ONSOLE  LEOS/SWITCHES' ),  20); 

DO  WILE  TRUE; 

QUTHQRD'CONSOLEItEDIPGfiT.>=INHORD(CONSOLE$SWITCH*PCRT); 

END'. 

END', 

CONSOLE$L£D$PAMP : 

PROCEDURE; 

7*  CAUSES  THE  CONSOLE  LEDS  TO  COUNT  UP  CONTINUOUSLY  */ 
DECLARE  A  WORD; 

CALL  S10*0UT*CHAR<7FH); 

CALL  SIO*OUT*STRINGCB< 'CONSOLE  LED  RAMP  >,  16); 

A=0; 

DO  WILE  TRUE; 

OUTWORD.:  CONSOLElLED*PORT>3A; 

CALL  DELAY*LONG; 

A-A+l; 

END; 

END'. 

0AC*M«DC$!N 

PROCEDURE; 

/*  CAUSES  A  GIVEN  CHANNEL  DAC  TO  BE  SET  AND  READ  BY  THE 
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2  = 
2  = 
2  = 
2  = 
2  = 


2  = 
2  = 
2  * 
2  = 
2  * 
2  = 
2  * 
2  = 
2  = 
2  = 
2  = 

2  = 
X 

2  = 
2  = 
3 

2  = 
2  = 
2  = 
2  = 
1  = 


2  * 
2  = 
2  * 
2  = 
2  = 
2  * 
2  = 
2  = 
2  = 
2  = 
2  = 
2  = 
2  = 
592  2  - 

594  2  * 

595  2  = 

5%  2  = 


SAME  CHANNEL  ADC  TO  iXECK  FOR  SYSTEM  ACCURACY  */ 

DECLARE  U  MGRD,B  WORD.  C  WORD,  T  WORD,  A  WORD; 

CALL  SIO*OUT*STRiNG<0L'OOP  TEST'),  8); 

T*0020ri:  /*  TOLERANCE  VALUE  */ 

LOOPD:  CALl  SIOINEHLINE; 

CALL  SI0$0UT$STRING(8( 'ENTER  DAC  VALUE:  '),17>i/*  NUMBER  IS 
ENTERED  IN  HEX,  TWO'S  COMPLEMENT  V 
SAMPLE  VALUES— 

0600H  -  0.  0  VOLTS 

7FFFH  -  190. 0  VOLTS 

FFFFH  -  SLIGHTLV  NEGATIVE  (LSB) 

8080H  -  -100.  0  VOLTS 
4000H  -  50. 0  VOLTS  */ 

CALL  SIO*GET$CHAR; 

H=SI0*GET*W0RD; 

CALL  SI04NEWLIME; 

CALL  SI0fOUT$STRING(0< 'ENTER  PORT  NUMBER:  0,19); 

CALL  SIO*GET$CHAR, 

B=SI04GET$W0RD; 

OUTWORD* B)=W; 

CALL  DELAY4L0NG; 

C=INWORD(B>; 

A=W-C; 

IF  A>127  THEN  A=256-ftX*  127  IS  MAX  POSITIVE  NUWER 
STATEMENT  TAKES  ABSOLUTE  VALUE  */ 

IF  A>  T  THEN  GO  TO  ERRQR*C€TECTED> 

ELSE 

GO  TO  LOOPD, 

ERR0R40ETECTED: 

CALL  SIOtNEWLINE; 

CALL  SIO4OUT$STRING(0< 'HVBRID  LOOP  ERROR  HAS  GREATER  THAN  TOLERANCE—'), 46); 
CALL  SIO*OUT$HORD<A>; 

GO  TO  LOOPD, 

END, 

APUICONTROL$TEST : 

PROCEDURE,  /*  OUTPUTS  A  NUMBER  FROM  ENTERED  LOCATION  TO  APU 
AND  THEN  RETRIEVES  IT  TO  ANOTHER  HEMORV  LOCATION 
FOR  VISUAL  COMPARISON  */ 

DECLARE  <A»B>  POINTER; 

CALL  SI0$0UT$CHAR(7FH>; 

CALL  SIQ40UT$STRING(@( 'APU  CONTROL  TEST'),  16); 

CALL  SIOJNEWLINE; 

CALL  SIO5OUT$STRING<0< 'ENTER  ADDRESS  OF  FLOATING  POINT  NUMBER  '),29>; 

CALL  SI04GET4CHAR; 

CALL  SIO$GET$ADDR(0)> 

A=MEM0RY*ARG1*PTR; 

CALL  ALU*QUT$W0RD<HEH0RV*AR61$PTR>; 

CALL  SIOINEHLINE; 

CALL  SIO$QUT*STRING(0< 'ENTER  TRANSFER  ADDRESS  0,23); 

'  CALL  SIOKGETfCHAR- 
CALL  SIO*GET$ADDRv0); 

B=HEM0RV»ARG1*PTR; 

CALL  ALU*IN*H0RD<MEM0RY»ARG1*PTR); 

CALL  SIOINEWlINE; 

CALL  DISPLAYIDATA$ARRAY(A>  4);  /*  DISPLAY  0RIG1ANL  VALUE  AND 


THE  RETRIEVED  VALUE  */ 
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59’ 

2 

- 

598 

2 

599 

2 

= 

600 

1 

« 

601 

2 

/ 

602 

2 

= 

602 

2 

3 

604 

2 

= 

605 

2 

= 

606 

2 

= 

607 

2 

a 

608 

2 

= 

609 

2 

= 

610 

2 

= 

612 

2 

s 

a 

614 

2 

a 

615 

2 

a 

616 

2 

a 

617 

1 

a 

618 

2 

a 

619 

2 

a 

620 

2 

a 

621 

2 

3 

622 

2 

= 

622 

2 

a 

624 

2 

a 

625 

2 

3 

626 

2 

a 

627 

2 

a 

628 

2 

a 

629 

3 

a 

628 

2 

a 

622 

3 

a 

622 

2 

= 

625 

2 

i. 

626 

2 

a 

627 

2 

3 

628 

2 

a 

629 

2 

a 

640 

2 

3 

641 

1 

a 

642 

2 

s 

642 

2 

= 

644 

2 

= 

645 

2 

= 

646 

a 

647 

2 

a 

648 

1 

a 

CAll  DHFjiViDATrilAPRAY'B,  4); 

GO  rO  NE-.TJCjWANO. 

END; 

LSI*CIRCUIT|TEST 

PROCEDURE; 

/♦  ALLOWS  THE  READING  AND  HRITING  OF  REGISTERS  IN  LSI  CIRCUITS  USING  THE  CONSOLE  SNITCHES  AND  THE 

KEYBOARD  */ 

DECLARE  A  WORD,  6  BYTE; 

CALL  SI0<0L'T*STRIN6<@L ' NTEGRATEO  CIRCUITRY'),  19); 

AGAIN:  CALL  SIOFNENLIf* 

CALL  SIO$OOTFSTRING<0<  'ENTER  PORT  NUMBER  '),18>; 

CALL  SIOFGETFCHAR, 

A=SIO$GET$WRD, 

REDO:  CALL  SIOINEULINE,/*  SET  CONSOLE  SNITCHES  PRIOR  TO  URITE  «/ 

CALL  S!0$0UT«STRING(8<'TVP£  R  TO  READ.  U  TO  HRITE  '),27), 

CALL  SIOFGETICHAR,  /*  REJECT  IF  CHAR  IS  NOT  R  OR  H  */ 

IF  (CHAR  O  'R')  AND  (CHAR  O  'H')  THEN  GO  TO  REDO; 

IF  CHAR  =  'R'  THEN  OUTPUT(CONSOLE*LED*PORT>=INPUT<A); 

ELSE 

(WTFUT(A)=INPUT(CONSOLE$SHITCH$PORT); 

GO  TO  AGAIN; 

END; 

KEYBDICONSOLEFTEST: 

PROCEDURE; 

DECLARE  TEST  BYTE.  I  BYTE; 

DECLARE  ALPHAS)  BYTE  DATB( '  A6CDEFGHI  JKUWQPQRSTlMttYZ0i23456789'); 

CALL  5IO#OUTISTRING(0t 'EYBOARD  DISPLAY  TEST'), 20); 

CALL  SIOtNcNLIfE: 

CALL  SIOFOUTFSTRINGW 'ENTER  THE  EXACT  SOME  DATA'), 25); 

CALL  SIOFNEULINE; 

CALL  5IO$OUTISTRING(0ALPHA(0>,  36); 

CALL  SIO*€WLINE; 

TEST^RUE, 

i=e, 

DO  WHILE  TEST=TRUE; 

CALL  USEPIIOFGETICHAR; 
lF(CHAROALPHR<I))  THEN  TEST=FALSE; 

1=1+1; 

IF  1=26  THEN  RETURN; 

END; 

CALL  5IOINEHLINE; 

CALL  SIO$OUT$STRING(0('KEYBD  ENTRY  ERROR  ),  17); 

CALL  SIWCMlINE; 

GO  TO  NEXTICOMMAND; 

END; 

TIMERFTEST: 

PROCEDURE; 

CALL  SIQ$OUT$STRING(0( ' IMER  TEST'), 9); 

'CALL  SIOINENLINE; 

CALL  TIMER*LOAD(1080,0); 
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DIhON*?S^  [■'.  rietvLc 


649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 


677 

678 

679 
688 
681 
682 

683 

684 
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688 
689 
699 

691 

692 

693 

694 


695 

696 
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2  * 
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3  = 

?  3 

3  = 

2  a 

2  3 
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2  = 
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2  = 
2  * 
2  = 
2  = 
2  * 
2  * 
2  = 
2  = 
2  = 
1  » 


2  = 
2  = 
2  = 
2  = 
2  * 
3  = 
3  = 
3  = 
3  = 

3  a 

3  = 
2  = 

2  = 
2  = 
2  = 
2  = 

2  = 
2  = 
2  = 
2  * 
1  = 


Tht  RESULT  to  console  */ 

DELUDE  HH',4)  BVTE  MTfi<02H,80H.00H,00H>; 

DECLARE  63'  4)  BVTE  OATAL02H,  0C0H,  00H,  00H); 

DECLARE  A<4)  BVTE  AT  (00120H); 

DECLfftE  6  4)  BVTE  AT  (00124H); 

DECLARE  C(4)  BVTE  AT  (08i28H)i 
DECLARE  I  BVTE, 

CALL  SIO*OUT*STRING<@t'PU  TEST'), 7). 

CALL  SIOINEHLINE; 

DO  I  =  0  TO  3, 

A<I)=AA<I>> 

B(I>aBB(I>; 

END; 

CALL  ALUfOUT$HORD(0A>; 

CALL  ALU$OUTfWORD(@B>; 

CALL  ALU$CMND$UORD(10H); 

CALL  ALU$IN*WORD(0C>; 

I®1ORV*ARG1$PTR=0A; 

CALL  SIOICRLF; 

CALL  CONVERT1TOIFLOAT(0); 

CALL  SIO*OUT*STRING<0t'  +  0,3); 

MENEV$RRGifPTR=@8i 
CALL  CONVERT$TO$FLOAT (0); 

CALL  SIO*OUT*CHAR<'*'); 

HE»3RV*ARGltPTR=0C; 

CALL  CONVERT#TO$FLOfiT <0); 

CALL  SIOtNEULINE; 

END; 

DISCRETCTIQfTEST : 

PROCEDURE, 

/*  CONNECT  THE  DISCRETE  OUTPUTS  TO  THE 
DISCRETE  INPUTS  TO  RUN  THIS  TEST.  ♦/ 

DECLARE  A  WORD; 

CALL  SIOfQUT$STRIW(0<  '  ISCRETE  I/O  TESTO,16); 

CALL  SIWEWLINE, 

A=0; 

DO  WHILE  AO0TFFFH; 

0UTH0RD<DISCRETE$I0*P0RT1)=A; 

0UTH0RD<DISCRETE*I0$P0RT2)=A; 

IF  INWORD<DISCRETE*IOfPORTl)OA  THEN  GO  TO  DISCRETE4ERR0R; 
IF  INHORD(DISCRETE*IO$PORT2)OA  THEN  GO  TO  DISCRETESERR0R2; 
A=A+1; 

END; 

DISCRETEIERRQR: 

CALL  SIOTNEULINE; 

CALL  SIO$QUT$STRING(0< 'DISCRETE  TEST  1  FAILED-'),  24); 

CALL  SIOlOUTIWORDvA); 

GO  TO  NEXTICOMmND; 

OISCRETE4ERROR2. 

CALL  SIOTNEULINE; 

CALL  SIO*OUT«STRINGt0< 'DISCRETE  TEST  2  FAILED-'), 24); 

CALL  SIOTOUTIWORDcA); 

GO  TO  l€XT*COHHAND; 

END, 

DISKTTEST : 

PROCEDURE; 
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V 


DIAGNOSTIC  NOiAilt 


= 

.  *  ALlOWS  the  testing  of  the  disk  subsystem 

S 

BY  DIRECT  CONTROL  THROUGH  THE  DISK  DRIVER  PACKAGE  ' 

700 

2 

= 

CALL  SIO$OUT$STRING(@'/LOPPV  DISK' >,10); 

701 

2 

CALL  SIOfNEWLtNE, 

702 

2 

* 

CALL  SIO*OUTISTRING(0< 'ENTER  IOPB  0,1 2); 

793 

2 

= 

CALL  SIOIGETICHAR, 

704 

2 

= 

IOP8=SIO$>3ET$W0RD; 

706 

2 

= 

CALL  DISK 

70S 

2 

3 

END, 

707 

1 

3 

DIAGNOSTICS: 

3 

PROCEDURE; 

708 

2 

= 

DECLARE  SECfCOMMAMX*)  BYTE  DATA</NRHLCIKTBA£€FO; 

709 

2 

3 

DECLARE  <  I,  J>  BYTE; 

710 

2 

s 

CALL  SIO$OiJT$STRING'.0(  'E5T  MODULE' ),  10); 

711 

2 

= 

CALL  PROMPT; 

712 

2 

= 

CALL  SUPPRESS$BLANKS; 

713 

2 

J=-l, 

714 

2 

= 

DO  1=0  TO  12; 

715 

3 

3 

IF  CHAR  =  SECICOMMAND(I)  THEN  Mi 

717 

3 

B 

END; 

718 

2 

3 

IF  J>127  THEN  GO  TO  ERROR; 

720 

2 

= 

DO  CAS  J; 

721 

3 

X 

CALL  MEMORYKTEST; 

722 

3 

s 

CALL  DAC*RAMP*TEST; 

723 

3 

» 

CALL  DACIADCJLOOP; 

724 

3 

= 

CALL  DAC*OUT$ADC*IN; 

725 

3 

s 

CALL  CQNSOLE*LEDfSHITCH*TEST; 

726 

3 

3 

CALL  LSI$CIRCUIT*TEST; 

727 

3 

= 

CALL  KEVBDICONSOLEITEST; 

728 

3 

3 

CALL  TIMERJTEST; 

729 

3 

3 

CALL  APtJICONTROLITEST ; 

738 

3 

3 

CALL  APUiTEST; 

731 

3 

3 

CALL  DISCRETEIIOfTEST; 

732 

3 

X 

CALL  CONSOLE*LED$RAMP, 

733 

3 

3 

CALL  DISKJTEST; 

734 

3 

3 

END; 

735 

2 

3 

END; 
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726  1 

727  2 

728  2 

739  2 

740  2 

741  2 

742  2 

744  2 

745  2 

746  1 

747  2 

748  2 

749  2 

758  2 

751  2 

752  2 

754  2 

755  2 

756  2 

757  3 

758  3 

759  3 

760  3 

761  3 

762  3 

763  4 

764  4 

765  4 

766  4 

768  5 

759  5 

778  5 

771  5 

772  4 

773  3 

774  2 

775  2 

776  1 

777  2 

778  2 

779  2 

788  2 

781  2 

782  2 

783  2 

784  2 

785  2 

787  3 

788  2 

789  2 

791  2 


•jSr-  -ot 

'MiV  •‘'r.j'i’tii 


JSUBTITlE'  COMMAND  ROUTINES' ) 

SlOfGO 

PROCEDURE; 

CALL  SIGIOUTISTRINGtfi'G  <Ai*S)'),8); 

OIL  PROMPT, 

CALL  SUPPRESSfBLANKS;  /♦  EXECUTE  fl  PROGRflH  RT  ENTERED  RDORESS*/ 

CflLL  5IO$GET$ftDDR<0); 

IF  CHAROflSCR  THEN  GOTO  ERROR; 

CflLL  S!0$CRLF; 

CflLL  MEMORYfflRGlIPTR;  /*£X£CUTE  IS  flCTUffl.LV  AN  INDIRECT  CflLL  */ 

END; 

SIO$EXflM$M£M 

PROCEDURE;  /*  EXAMINE  MEHORV  AND  ALLOW  ALTERATION  */ 

DECLARE  T  BYTE, 

CflLL  SIOIOUT$STRING(0(/UBSTITUTE  <flDRS>0,16)i 
CflLL  PROMPT; 

CflLL  SUPPRESSfBLANKS, 

CflU.  SIOIGET$AOOR<0;;/*  NHftT  ADDRESS?  */ 

IF  CHfiROASCR  Tt£N  GOTO  ERROR 
DO  WHILE  TRUE, 

CflLL  SIOfNEHLINE; 

Cffl.L  SIOfOUT$HORD<flRGLOFF);/*  OUTPUT  THE  CURRENT  VALUE  */ 

CflLL  SIOfOUTfCHARC'-'); 

CALL  5IO$OUTtBYTE(HEHORY$ffl?Gl); 

CflLL  SIO*OUT$CHAR('-'), 

CflLL  SIOIGETtCHAR/*  ALTER  IF  NEXT  CHARACTER  IS  NOT  CR, COMMA  OR  BLANK*/ 

IF  CHRRO', '  AND  CHAROASBL  AND  CHAROflSCR  THEN 

DO; 

T  =  SIOfGETfBVTE; 

MEMORYIARGl  *  T;/*  WRITE  NEW  VALUE  AND  VERIFY  IT  */ 

CflLL  DELflV(l); 

IF  MEHORVSflRClOT  THEN  DO, 

CflLL  5I0*BLANKS<2>; 

CflLL  SIOfOUT*STRING<0'/ SUBSTITUTE  FAILED'),  17); 

GO  TO  ERROR; 

END;' 

END; 

flRGl  OFF  *  flRGl.  OFF+1;  /*  GO  TO  NEXT  SEQUENTIAL  LOCATION  */ 

END; 

END; 

SIOfDISPLRY: 

PROCEDURE;/*  DISPLAY  N  WORDS  STARTING  AT  ENTERED  ADDRESS  */ 

DECLARE  COUNT  WORD; 

,  CflLL  SIO$OUTfSTRING'>0( '  1ST  <ADRS,CNT)'),14); 

CflLL  PROMPT; 

CflLL  SUPPRESSfBLANKS; 

CflLL  SIOfGETfflDDR<0>,/*  WHAT  ADDRESS?  */ 

IF  CHRR=ftSCR  THEN 
COUNT  =  b 
ELSE 
DO; 

IF  CHflR=':'  THEN  GOTO  ERROR; 

CALL  SIOfGETfCHfiR. 

COUNT  *  SIOfGETfWORD;/*  HOW  MflNV?  ONE  BY  DEFAULT.  */ 

IF  CHRROflSCR  THEN  GOTO  ERROR; 

END, 
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-  m 

vWtot>  S'0»:T :  Nt;« 


732 

2 

CALL  SIOISEbilINE.' 

792 

2 

CALL  SIONuTHflHXflRfiL  OFF);/*  OUTPUT  OFFSET  AND  THREE  BLANKS*/ 

794 

2 

CALL  S!0*8LANm(3>, 

795 

2 

IF  COUNT  >  1  THEN 

796 

2 

CALL  SIO$&ANKS(LOM(3*<ARGi.  OFF  AND  080FH)));/*  CENTER  DATA  •/ 

797 

2 

00  HAILE  COUNT  >  8; 

798 

3 

CALL  S 1 0$0UTfBYTE<  MEtlOR  V4ARG1 ) ; /*  OUTPUT  THE  DATA  */ 

799 

3 

CALL  SIO$OUT*CHAR('  0; 

888 

3 

ARGI  OFF  --  ARGi.  OFF  +  1; 

881 

3 

COUNT  =  COUNT  -  1; 

882 

3 

IF  COUNT  >  0  AND  (ARGI  OFF  AND  008FH)=0  THEN 

883 

2 

DO; 

804 

4 

CALL  5I04NENLINE, 

805 

4 

CALL  SIO$OUTfWORD(ARGl  OFF); 

886 

4 

CALL  SI0*BLANKSt3); 

887 

4 

END; 

888 

3 

END; 

889 

2 

END; 

810 

1 

HEHORYfFILL: 

PROCEDURE;  /♦  FILL  NENORV  BEGINNING  AT  ENTERED  ADDRESS  FOR  N  LOCATIONS  */ 

811 

2 

DECLARE  COUNT  WORD; 

812 

2 

DECLARE  T  BYTE; 

812 

2 

CALL  SIO$OUT$STRING(0<'ILl  (START, CNLVflL)'),  19); 

814 

2 

CALL  PROMPT; 

815 

2 

CALL  SUPPRESSIBLANKS; 

816 

2 

CALL  SIO*GET$ADDR<0>; 

817 

2 

IF  CHARO', "  THEN  GO  TO  ERROR; 

819 

2 

CALL  SIO*GET$CHAR, 

828 

2 

COUNT=SIOIGET$WORD;  /*  HOW  MANY  BYTES  DISPLAYED?  */ 

821 

2 

IF  CHARO'  , ''  THEN  GO  TO  ERROR; 

822 

2 

CALL  SIOIGETICHAft 

824 

2 

T-SIO$GET$BYTE,  /*  WITH  WHAT  VALUE?  */ 

825 

2 

IF  CHAROASCR  THEN  GO  TO  ERROR; 

827 

2 

DO  WHILE  COUNT>0; 

828 

3 

CALL  HOYB(0T ,  NEHORYtARGKPTR,  1); 

829 

3 

COUNT=COUNT-L 

838 

3 

ARGI  0FF=ARG1  OFF+1; 

821 

3 

CALL  DELAY<1>; 

832 

3 

END; 

833 

2 

END; 

824 

1 

MEMORYIHOVE 

PROCEDURE; /*  HOVE  MEMORY  FROM  ADDRESS1  TO  ADDRESS2  FOR  T  BYTES*/ 

835 

2 

DECLARE  T  WORD; 

826 

2 

CALL  SIO$OUTISTRIN6(0(  'OVE  (SOURCE,  DESLCNT)'),  21); 

827 

2 

CALL  PROMPT; 

838 

2 

CALL  SIPPRESSfBLANKS; 

839 

2 

CALL  SIOIGET$ADDR(0); 

848 

2 

IF  CHARO', '  THEN  GO  TO  ERROR; 

842 

2 

CALL  MOVB (  0MEMORY4ARG1SPTR,  0HEHORY#ARG2*PTR,  4);  /*  USES  SYSTEM  HOVE  ROUTINES*/ 

843 

2 

CALL  SIOttETFCHAR; 

344 

2 

CALL  SI0$GETIADDR(8); 

845 

2 

IF  CHARO', '  THEN  GO  TO  ERROR; 

847 

2 

CALL  SI04GET4CHAR, 

848 

2 

T~SIO$GET$WOPD; 

849 

2 

IF  CHAROASCR  THEN  GO  TO  ERROR; 

851 

> 

CALL  HOVB (  MEM0RY4ARG2IPTR,  NEH0RYIARG1IPTR,  T); 
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852  2  EfiD 

853  1  LISTICM0RY 

PPOCEI'ijRE.  /*  DUMPS  MEMORY  FROM  ADDRESS  ENTERED  FOR  COUNT  BVTES  TO  MICROPRINTER  */ 

854  2  DECLARE  COUNT  WORD, 

855  2  CALL  SIO*OUT$STRING<0<'RINT  (ADRS,CNT)'>,  15); 

856  2  CALL  PROMPT, 

857  2  CALL  SUPPRESSFBLANKS; 

858  2  CALL  SIOFGET$ADDR<0>; 

859  2  IF  CHAR=ASCR  THEN  COUNT=l; 

ELSE 

861  2  DO; 

862  3  IF  CHAR  =/ : '  THEN  GO  TO  EWWR; 

864  3  CALL  SIOFGETICHAR. 

865  3  COUNT=SIO$GET$WORO; 

866  3  IF  CHAROASCR  THEN  GO  TO  ERROR; 

868  3  END; 

869  2  CALL  LPFNEWLINE; 

870  2  CALL  LP<OUTFSTRING<0< ' 8986  MEMOHi  DUMP'),  16); 

871  2  CALL  LPFNEWLINE; 

872  2  CALL  LPFNEWLINE; 

873  2  CALL  LPFOUTFWMXARGL  OF); 

874  2  CALL  LPFBLANKSG); 

875  2  IF  COUNT  >1  THEN  CALL  LPFBLANK5<L0N(3*(ARG1  OFF  AND  000FH))); 

877  2  DO  WHILE  COUNT  >0; 

878  3  CALL  LPFOUTFBYTElMEMORYFARGI); 

879  3  CALL  LPFOUTFCHfffi('  '); 

880  3  ARG1  0FF=ARG1  OFF+i; 

881  3  COUNT=COUNT-i, 

882  3  IF  COUNT  >0  AND  CARG1  OFF  AND  000FH)  =  0  THEN 

883  3  DO; 

884  4  CALL  LPFNEWLINE; 

885  4  CALL  LPFOUT$WORD<ARGL  OFF); 

886  4  CALL  LPFBLANKSG); 

887  4  END; 

888  3  END; 

889  2  CALL  LPFNEULINE, 

890  2  END; 

891  1  BREAKFPOINTFSET : 

PROCEDURE;/*  ALLOWS  A  SINGLE  BREAKPOINT  TO  BE  SET  ANYWHERE  IN  RAN  USES 
THE  INTERRUPT  3  CAPABILITY  OF  THE  SYSTEM  */ 

892  2  CALL  SIQFOUTFSTRING<0( 'REAKPOINT  SET  (ADRS)'),20); 

893  2  CALL  PROMPT; 

894  2  IF  BREAK FPQINTFFLAG  O0  THEN  GO  TO  BREAKFPOINTFABORT; /*  ONE  ONLY  */ 

896  2  CALL  SIOFGETFCHAR, 

897  2  DO  WHILE  CHAR=RSBL, 

898  3  CALL  SIOFGETFCHAR; 

899  3  END; 

900  2  CALL  SIOFGETFADDR(0>; 

991  2  IF  CHAROASCR  THEN  GO  TO  ERROR; 

903  2  CALL  MOVBf®MEMGRYFARGlFPTR,  0BREAKFPOINTFPTR,  4); 7*  SAVE  ADDRESS  */ 

904  2  CALL  MOVB(BREAKFPOINTFPTR,@BR£AKFPOINTFOATA,  2);  /*  SAVE  ORIGINAL  DATA  */ 

905  2  CALL  M0VB(0(0COH,  03H),  BREAKFPOINTFPTR,  2);  /*  INSERT  INTERRUPT  CODE*/ 

906  2  BREAK.IPOINTIFLAG=l../*  SET  FLAG  INDICATING  BREAKPOINT  ACTIVE  */ 

907  2  RETURN; 

908  2  BREAktPOINTFABORT ; 

/*  THIS  ROUTINE  WARNS  IF  A  BREAKPOINT  IS  ALREADY  SET  AND 
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CALL  SIOJHENLINE. 


909  2  CALI  SIOfOUTfiTRING<0(  'BREAK  POINT  ALREADY  SET  fiT  '>,27); 

2  CALL  5 1 OtOUT IWOPD<  BKPTl R.  S£G>; 

2  CALL  5IO$OUTSCHAR(' 

2  CALL  S I 0I0U7 f  WORD ( BKPTR.  OFF); 

2  CALL  SIOTNEHLINE; 

2  END; 

1  8REAK$P0INT$CLEAF . 

/*  THIS  ROUTINE  ALLOWS  THE  REMOVAL  OF  ft  BREAKPOINT  MHICH 
HAS  NOT  BEEN  ENCOUNTERED  */ 

PROCEDURE; 

2  CALL  SIOMUTISTRINQlBC'LEflR  BREAKPOINT' >*15); 

2  CALL  SIOtNENUNE. 

2  CALL  NOVB<BBREAK$POINT$DflTR> BREAKTPOINTIPTR,  2);/*  RESTORE  OATA*/1 

2  BREAK$POINT$FLAG=8; RESET  BREAKPOINT  FLAG  */ 

2  END; 


l 


PROCEDURE  INTERRUPT  3; 

922  2  CflLL  BREAKlPOINTICLEAR,/#  REMOVE  THE  BREAKPOINT*/ 

923  2  CALL  SIOSNEMLlNEs 


/*  GIVE  USER  AN  INDICATION  BREAKPOINT  WAS  REACHED  */ 

924  2  CALL  SI<WOUTISTRING<0< ' BREAK  POINT  ENCOUNTERED  AT  '),27>; 

925  2  CALL  SIOfOUT$HORD<BKPTR  SEG); 

926  2  CALL  SICWOUWCHARC':'); 

927  2  CALL  SIQMUT$HORD<BKPTR  OFF); 

928  2  CALL  SICWNEMLINE, 

929  2  GO  TO  NEXTICOMMAND; 

939  2  END; 

931  1  DIVIDEIERROR: 

PROCEDURE  INTERRUPT  0;/*  SVSTEN  ARITHMETIC  INTERRUPT  */ 

932  2  CALL  SI<WOUTISTRING<A<  ‘ 'DIVIDE  ERROR'  )/  12); 

933  2  GO  TO  NEXTTCOMHAND; 

934  2  EM); 

935  1  NRI: 

PROCEDLIRE  INTERRUPT  Z/*  NON-MASKABLE  INTERRUPT  SERVICE  */ 

936  2  GO  TO  NEXTTCOMMAND, 

937  2  RETURN; 

938  2  END; 

939  1  OVERFLOItfERROR- 

PROCEDURE  INTERRUPT  4;/*  SVSTEM  ARITHMETIC  INTERRUPT  */ 

949  2  CALL  SIO*OUT$STRING<0<  OVERFLOW'),  8); 

941  2  GOTO  NEXTICOMMAND; 

942  2  END; 

943  1  INT20:  PROCEDURE  INTERRUPT  29;/*  SERVICE  FOR  8259A  SVSTEM  INTERRUPTS  */ 

944  2  CALL  SIO*OUT$STRING<0(' INTERRUPT  20')/  12); 

945  2  CALL  SIOINEWlINE; 

946  2  RETURN; 

947  2  END; 

948  1  INT21:  PROCEDURE  INTERRUPT  21; 

949  2  CALL  SIOtOUT*STR!NG<0< ' INTERRUPT  21')/  12); 

950  2  CALL  SIOTNEWLINE 

951  2  RETURN; 

952  2  ; 

953  2  END, 

954  1  INT22:  PROCEDURE  INTERRUPT  22; 

955  2  CALL  SIO$QUT$STRING<0< ' INTERRUPT  22'),  12); 

956  2  CALL  SIOtNEWLINE; 

957  2  RETURN; 

958  2  END; 

959  1  INT23-  PROCEDURE  INTERRUPT  23; 

960  2  CALL  SIO$0UTJSTRIN6(0<' INTERRUPT  23'),  12); 

961  2  CALL  SIOTNEWLINE; 

962  2  RETURN; 

963  2  END; 


964 

965 

966 

967 

968 

969 

970 


INT24:  PROCEDURE  INTERRUPT  24; 

CALL  SIO$OUT*STRING(0<  INTERRUPT  24'), 
CALL  SkWNEWLINE, 

RETURN, 


12); 


END; 

INT25 


PROCEDURE  INTERRUPT  25; 
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971 

2 

Chll  SIOIOt'T$STRING<0', '  INTERRUPT  25')/  12); 

972 

2 

CALL  SIOINEHLiNE; 

973 

2 

RETURN; 

974 

2 

END. 

975 

1 

INT26:  PROCEDURE  INTERRUPT  26; 

976 

2 

CALL  SI040UT*STRIN3<@< 'INTERRUPT  26'),  12); 

977 

2 

CALL  SIOINEHLINE; 

978 

2 

RETURN; 

979 

2 

END; 

988 

1 

INT27:  PROCEDURE  INTERRUPT  27; 

981 

2 

CALL  5IO$OUT4STRING(0< '  INTERRUPT  270,  12); 

962 

2 

CALL  SIOINEULINE; 

983 

2 

RETURN, 

984 

2 

END; 

985 

1 

INITIINTIVECTOR. 

PROCEDUREt INTIVECTIPTR,  INTIOFFSET); 

986 

2 

DECLARE  INTIVECTIPTR  POINTER, 

INT0OFFSET  HORD, 

VECTOR  BASED  INTtVECTIPTR  STRUCTURE 
(OFF  HORO,  SEG  HORD), 

CORRECTION  LITERALLY  '19H', 
INTJINIT$VECT$CODE<*>  BYTE  DATA 
(55H,  8£H,  0ECH,  8CH,  0C8H,  0C4H,  5EH,  (MH,  26H,  S9fL  07H, 
5DH,0C2H,84H,08H>, 

INITIINTIVECTICODEIPTR  WORD 
DATA  <  INT$INIT*VECT$COOE)i 

987  2  CALL  INIT$INT«VECT$CODE«PTR(0VECTOR.SEG)» 

988  2  VECTOR  OFF=INT$OFFS£T-CORRECTIONj 

989  2  END; 
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SS*.«3t'TlE'  COH'-A'ti  v ! SPA-CH  MODUlE  > 
jETi-cnnc- 
PROCEDURE  BU'E 
951  2  DECLARE  I  B?TE. 

992  2  CULL  S10ME&1NE, /*  GIVE  USER  ft  PROMPT  *7 

992  2  iXl  SIOttUTISTRING^'  ENTER  COMMAND  PLEASE :'),  21>j 

994  2  CALL  SIQIGETICHAR; 

995  2  DO  b0  TO  17;  7*  DECODE  ft  CuMMflND  ENTRV  *7 

996  3  IF  CHAR=SIO*CMNB<I>  THEN  RETURN  I, 

998  3  EHE-i 

999  2  GOTO  ERROR, 7*  BOMB  IF  NOT  IN  COMMftND  TABLE  *7 

ieee  2  end, 

7*  BOOTSTRAP  FNTRV  *7 
1081  1  MAINIPROGRAH: 

7*  SET  STACK  POINTER  *7 
STflCKPTR=0200H, 

/*  DELAY  TO  ALLOW  VIDEO  UNIT  TO  SELF  PROGRAM  *7 

1002  1  CALL  INITIINT$VECTORt0INT*VECTOR<0>,.  DIVIDEIERROR); 

1003  1  CALL  INIT#!NTIVECTOR(0INT$VECTOR(2)/.  NMI); 

1004  1  CALL  lNlTfINT$VECT0R'.@INT$VECT0R(3>,. BREflKWINTISERVICE); 

1005  1  CALL  INIT$INT$VECTOR<  0INT1VECTORU), .  OVERFLOW»£RROR)j 

1006  1  CALL  INITIINT*VECTOR<,0INT*'7ECTOR(20)i .  INT28); 

1007  1  CALL  INITIINT$VECTOR'.0INTIVECTOR<2i>, .  INT21>j 

1088  1  CALL  INIT$INWECTQR<0INT*VECTOR(22>,  INT22); 

1009  1  CALL  INIT$INTr'ECTOR<0INT«VKTOR(23)>.INT23)f 

1010  1  CALL  INIT*IN7$VECTOR<eiNT$VECTOft(24), .  INT24); 

1011  1  CALL  I N I  Tl  I MTIVECTQP  <  0 1 NTIVECTOR 25  > , .  INT25), 

1012  1  CALL  INITI INTIVECT0RC@INTIVECT0R(26), .  INT26); 

1013  1  CALL  INIT*INTtVECT0Rv@INT#VECT0ft(27), .  INT27); 

1014  1  CALL  DELftVJLONG; 

1015  1  CALL  DELAYHONG; 

1016  1  CALL  DELAYHONG, 

1017  1  CALL  DELflVILONG.: 

7*  INITIALIZE  THE  INTERRUPT  CONTROLLER  *7 

1018  1  CALL  INTIINIT; 

7*  INITIALIZE  THE  USART  *7 

1019  1  CALL  SIOIINIT; 

7*  INITIALIZE  THE  MICROPRINTER  *7 

1020  1  CALL  LPIINIT; 

/♦INITIALIZE  THE  TIMER  *7 

1021  1  CALL  TIKERHNIT; 

1022  1  CALL  CRTIOUT(0CH>; 

1023  1  CALL  CRTIOUT(0CH)i  7*  CLEAR  CRT  CONSOLE  */ 

1024  1  BPEAK$POINTIFLAG=0,  7*  CLEAR  THE  BREAKPOINT  FLAG  *7 

1025  1  CALL  CONSOLEIIDENT; 

1026  1  CALL  SIOINEWLINE;/*  OUTPUT  THE  SVSTEH  LOGO  *7 

1027  1  CALL  SIO$OUTISTRING<!0(  'USAFA  8086  VER  3. 20'  ),  19); 

1028  1  CALL  SIO$OUT$STRING(0'm0ftH,  'DISK  0  '  >,9); 

1029  1  OUTPUT ’'DISK  IDRIVEJPORT)=01H>  7*  SELECT  DRIVE  0  *7 

1039  1  OUTPUT' DISK$RESET$PORT)-00H,  7*  RESET  DISK  CONTROLLER  *7 

1031  1  CALL  DISKIBUSV, 

1022  1  OUTPt.rr<DISK»COnMANC'$PORT>^0F0H,7*RESTORE  DRIVE  0  *7 

1032  1  CALL  DISKIBUSV, 

1024  1  IFt(CNOT( INPUT* DI3(ISTATUSIPORT)»  AND  DISKIREADV)O00H) 

THEN  CALL  S IOlCUTlSTR ING ( 0 </ NOT  \>,4); 

CALL  SIO*OUT*STRING<0< 'READY' ),  5); 


1026  1 
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1027  1 

1028  1 

1039  1 

1040  1 

1041  1 

*“  1042  1 

1043  1 

r'  1045  l 

1046  1 

1047  1 

r  1048  1 


1049  2 

r-  I860  2 

1051  3 

1052  3 

r  1053  3 

1054  3 

1055  3 

r  1056  3 

1057  3 

1058  3 

r\  1059  3 

1060  3 

1061  .  3 

1062  3 

1063  3 

i%64  3 

1065  3 

1066  3 

1067  3 

1068  3 

1869  3 

1070  2 

1071  1 

1072  1 

C  1073  1 

1074  1 

1075  1 

l  1076  1 


CALL  SIOIOUT$STRING(0m3OH. 0AH,  'DISK  1  0,9); 

OUTPUT'  D 1  SK#Dfi ! V£JF0RT>=62»;  /*  SELECT  DRIVE  1  */ 

OUTPUTS 'SKfRESETJPORT  ;=00H;  /«  RESET  CONTROLLER  */ 

CALL  DISK«USY; 

OUTPUT < D I  SKFCOMHANDIPORT >=9F0H;  /•RESTORE  DRIVE  1*/ 

CALL  DISKI8USV; 

IF<  ( (NOT-,  INPUTtDISK*STATUS*PORT» )  AND  DISK*READV)O08H) 

THEN  CALL  SIO*OUT*STRINfr0('NOT  '),4>; 

CALL  SIO$OUTISTRING<@< 'READY' ),  5); 

DISK$TRACK(0)=00H; 

DISKfTRACK(l)=00H; 

NEXTJCOHMAND 
DO  WHILE  TRUE. 

STACKPTR  =  0200H;/*  REINITIALIZE  THE  STACK  */ 

DO  CASE  GETICMND;  /•  GET  COMMAND  FROM  THE  CONSOLE  AND  EXECUTE  •/ 
CALL  SI01GQ. 

CALL  SIOfEXAHIMEH, 

CALL  SI04DISPLAY; 

CALL  NEHORVINOVE; 

CALL  MEMOPVJFILb 
CALL  LISTIMEMORV; 

CALL  BREAKfPOINTISET; 

CALL  BREAK$POINT«CLEAR; 

CALL  CCNV£RT$T0*FL0AT(1); 

CALL  DIAGNOSTICS; 

CALL  READIDRIVER; 

CALL  HRITE4DRIVER; 

CALL  KOPYIDRIVER; 

CALL  RENATEIDRIVER; 

CALL  ERASEIDRIYER; 

CALL  ATTRIBUTEtCHANGE$DRIV£R; 

CALL  INITIALIZE; 

CALL  DIRECTORYILIST, 

END; 

END; 

ERROR 

STACKPTR=0208H;  /*  CLEAR  THE  STACK  •/ 

CALL  SIOFNEHLINE /*  ISSUE  CONSOLE  HARMING  */ 

CALL  SIO«UT$STRIN6<0< 'COMMAND  ENTRY  ERROR.  TRY  AGAIN'), 30); 
CALL  SIQINEHLINE 

GOTO  NEXTRCOMMAND; /•  GET  A  NEW  COMMAND  ♦/ 

END  USAF86; 


) 


1 

~) 

) 
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CROSS-REFERENCE  LISTING 


DEFN  ODOR  SIZE  NONE.  ATTRIBUTES,  AND  REFERENCES 


r  . 

464  9869H 

1  A 

BVTE 

468  469 

651  0128H 

4  A 

BYTE  ARRAY<4)  AT  ABSOLUTE 

658  661  665 

.  - 

272  000AH 

4  A 

POINTER  PARAHETER  AUTOMATIC 

273  274  282 

507  0024H 

2  A 

WORD 

509  515  516 

■ 

601  0040H 

2  A 

WORD 

606  613  614 

/ 

6 77  0042H 

2  A 

WORD 

680681682683684686688692696 

r  • 

588  0038H 

4  A 

POINTER 

587  596 

, 

543  002CH 

2  A 

UORD 

546  548  550 

t 

554  0036H 

2  A 

UORD 

568  569  570  571  576 

( 

649  0054H 

4  AA 

BYTE  ARRAV<4)  DATA 

658 

i 

603  1700H 

AGAIN 

LABEL 

615 

346  0114H 

4  ALMOSTTEN 

BYTE  ARRAYS)  AT  ABSOLUTE 

367  372 

347  0O28H 

4  ALHOSTTENS 

BYTE  ARRAY(4)  DATA 

367 

* 

619  0038H 

36  ALPHA 

BYTE  ARRAY(36)  OATA 

624  630 

- 

6 

ALUAUTOPORT 

LITERALLY 

323  330 

• 

232  0F3EH 

19  ALUCNNDWQRD 

PROCEDURE  PUBLIC  STACK=0004H 

I 

374  288  289  ‘  396  494  405  406  407  410  411  663 


d 


'SwidwriMwiMAv' 


43 
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6 

ALUCONTROLPORT 

LITERALLY 

334  337 

6 

ALUDATAPORT 

LITERALLV 

325 

8F18H 

46  ALUINNORD 

PROCEDURE  PUBLIC  STACK=8086H 

375  381  398  397  486  594  664 

318 

8EE5H 

43  ALUOUTMORD 

PROCEDURE  PUBLIC  STACK=8886H 

372  373  378  379  387  388  394 

336 

0F51H 

14  ALUSTATUSNQRD 

PROCEDURE  BYTE  PUBLIC  STACK*8882H 

579 

1648H 

166  APUCQNTROLTEST 

PROCEDURE  STACK=883EH 

729 

648 

1842H 

239  APUTEST 

PROCEDURE  STACK=8844H 

730 

15 

ajflflu 

Wkwi 

4  ARG1 

STRUCTURE  AT 

242  243  246  247  368  361  491 

796  888  882  885  838  873  876 

16 

8084H 

4  ARG2 

STRUCTURE  AT 

14 

ASBL 

LITERALLY 

78  212  229  253  386  761  897 

13 

0814H 

16  ASCII 

BYTE  ARRAV<16>  DATA 

61  62  166  167  417  428  438 

14 

ASCR 

LITERALLY 

82  212  229  257  741  752  761 

14 

ASLF 

LITERALLY 

259 

14 

ASTERISK 

LITERALLV 

270 

48 

onflMl 

WWII 

ATTRIBUTECHANGEDRIVER 

PROCEDURE  EXTERNALS)  STACK«8088H 
1866 

332 

8888H 

1  B 

BYTE  PARAMETER  AUTOMATIC 

333  334 

538 

083CH 

4  B 

POINTER 

593  597 

681 

886BH 

1  B 

BYTE 

554 

8838H 

2  B 

HORD 

564  565  567 

652 

8124H 

4  B 

BYTE  ARRAV<4)  AT  ABSOLUTE 

659  662  669 
44 
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274 

0880H 

i 

8 

8VTE  BASEDS  ARRAYS 

282 

284 

0856H 

1 

8 

BYTE 

207  209  213 

59 

0088H 

1 

B 

BYTE  PARAMETER  flUTOMRTIC 

68  61  62 

164 

0088H 

i 

B 

BYTE  PARAMETER  AUTOMATIC 

165  166  167 

507 

0826H 

2 

BASE 

M0RD 

513  515 

650 

8058H 

4 

BB 

BYTE  ARRAV<4)  DATA 

659 

17 

8888H 

4 

3KPTR 

STRUCTURE  AT 

910  912  925  927 

17 

QQaOL 1 
wwi  i 

i 

BREAKPOINT 

BYTE  BASED(BREAKPOINTPTR) 

988 

1F06H 

BREAKPOINTABORT 

LABEL 

©5 

I 

915 

1F40H 

44 

I 

BREAKPOINTCLEAR 

PROCEDURE  STACK=0038H 

922  1058 

18 

884DH 

2 

BREAKPOINTDATA 

BYTE  ARRAV(2) 

984  918 

11 

084FH 

1 

BREAKPOINTFLAG 

BYTE 

894  986  919  1824 

17 

0008H 

4 

BREAKPOINTPTR 

POINTER 

17  903  984  905  918 

921 

1F85H 

85 

BREAKPOINTSERVICE 

PROCEDURE  INTERRUPTS  STACK=8034H 

1004 

891 

1E92H 

174 

8REAKPOINTSET 

PROCEDURE  STACK=003flH 

1057 

405 

1192H 

BVPASSMULTIPLY 

LABEL 

402 

653 

0128H 

4 

C 

BYTE  ARRAY(4)  AT  ABSOLUTE 

664  672 

- 

51 

0088H 

1 

C 

BYTE  PARAMETER  AUTOMATIC 

52  55  56  57 

196 

0888H 

1 

C 

BYTE  PARAMETER  AUTOMATIC 

197  198  199  200  201 

X 

45 
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125 

0009H 

1 

C 

BVTE  PARAMETER  AUTOMATIC 
126  129 

157 

flflQQU 

Wwn 

1 

c 

BVTE  PARAMETER  AUTOMATIC 
158  168  162 

131 

6688H 

1 

c 

BVTE  PARAMETER  AUTOMATIC 
132  133  134  136  137 

88 

lYtfVfil 

WWfl 

1 

c 

BVTE  PARAMETER  AUTOMATIC 
89  98  91 

554 

8032H 

2 

c 

WORD 

567  568  . 

3 

004CH 

1 

CHAR 

BVTE  PUBLIC 

146 

151 

154 

155 

186 

187 

285 

288 

289 

212 

222 

223 

233 

244 

299 

381 

382 

386 

316 

(10 

612 

(38 

715 

741 

782 

996 

785 

789 

817 

821 

825 

848 

845 

849 

859 

8(2 

866 

12 

WWCTl 

1  CONSOLE 

BVTE 

159  161  181  183  258  268  2(2  291  292  294  296  296  380  311 

313 

296 

0E4DH 

78  CONSOLEIDENT 

PROCEDURE  5TACK=8020H 

1825 

19 

COKSOLELEOPORT 

LITERALLY 

441  539  548  (13 

542 

1564H 

51  CONSOLELEDRAMP 

PROCEDURE  STACK=882EH 

732 

536 

154AH 

26  C0NS0LELEDSHITCHTE5T 

PROCEDURE  STACK=882EH 

725 

19 

CONSQLESUITCHPORT 

LITERALLY 

437  539  614 

339 

8F5FH 

868  CONVERTTOFLOAT 

PROCEDURE  PUBLIC  STACK=803CH 

667  670  673  1859 

986 

CORRECTION 

LITERALLY 

988 

\ 

854 

884AH 

2  COUNT 

WORD 

868  865  875  877  881  882 

777 

OO AAU 

own 

2  COUNT 

UORD 

783  788  795  797  881  882 

811 

8846H 

2  COUNT 

MORD 

828  827  829 

258 

885BH 

1  COUNT 

BVTE 

46 


j*#»*mk*w*:»**'*-  *''i i— * 


ass 
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131  097DH  155  CRTOUT 

18  CRTPORT 

520  14E0H  106  DACADCLOOP 

553  1597H  177  DACOUTADCIN 

506  143EH  82  DACRAMPTEST 

452  001CH  2  DATAPGRT 

464  001EH  2  DATAPORT 

248  0008H  2  DEFRULTBASE 

88  08R8H  26  DELAY 

94  08C2H  41  DELAVLONG 

23  0051H  1  DERR 

707  19F2H  1 85  DIAGNOSTICS 
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359  386  393  422  423  424 

PROCEDURE  PUBLIC  STRCK=000EH 
162  261  263  1022  1823 

LITERflLLV 
134  136 

PROCEDURE  STRCK=0030H 

723 

PROCEDURE  STACK=8034H 

724 

PROCEDURE  STRCK=0030H 
722 

WORD 

455  456  458 
WORD 

467  468  469 

WORD  PARAMETER  AUTOMATIC 
241  242 

PROCEDURE  PUBLIC  STACK=8804H 

101  109  ill  116  118  120  122  135  141  445  447  449  457  484 
488  517  533  765  831 

PROCEDURE  PUBLIC  STACK=8882H 
140  549  566  1014  1015  1016  1017 


PROCEDURE  STACK=8048H 
1060 


44 

fVWMil 

WwWT 

DIRECTORVLIST 

PROCEDURE 

1068 

690 

1973H 

DISCRETEERROR 

LABEL 

685 

694 

1993H 

DISCRETEERR0R2 

LABEL 

687 

21 

DISCRETEIOPORT1 

LITERflLLV 
682  684 

21 

DISCRETEI0P0RT2 

LITERALLY 
683  686 

676 

1931H 

130  DISCRETEIOTEST 

PROCEDURE 

PL/N-86  COMPILER  USiF-io 

C0Mf!r',Ni'  DiSrH'Crt  rfOCl*Jt_£ 


26 

.1/WV11 1 

WWWT 

DISK 

PROCEDURE  EXTERNRL(l)  STACXS000H 
705 

100 

08EBH 

21 

DISKBUSV 

PROCEDURE  STACK=000CH 

1031  1033  1040  1042 

29 

DISKCOMHAHDPORT 

LITERflLLV 

1032  1041 

29 

DISKORIVEPORT 

LITERflLLV 

1029  1038 

29 

DISKREADV 

LITERflLLV 

102  1034  1043 

29 

DISKRESETPORT 

LITERflLLV 

1030  1839 

29 

DISKSTATUSPORT 

LITERflLLV 

102  104  1034  1043 

699 

19B3H 

63 

DISKTEST 

PROCEDURE  STACK=8030H 

733 

28 

0031H 

4 

DISKTRfiCK 

BVTE  flRRflV(4)  PUBLIC  AT  ABSOLUTE 
1046  1047 

351 

0118H 

4 

DISPLAVCHAR 

BVTE  ARRfiVU)  AT  ABSOLUTE 

408  409 

272 

0DDFH 

110 

DISPLAVDATAARRAV 

PROCEDURE  PUBLIC  STACK=8036H 

596  597 

931 

1FDAH 

46 

DIVIDEERROR 

PROCEDURE  INTERRUPTS)  STACK=002EH 
1002 

392 

1117H 

DIVIDELOOP 

label 

377 

DOUBLE 

BU1LTIN 

223  469 

38 

wwn 

ERASEDRIVER 

PROCEDURE  EXTERNALS)  STACK=0000H 
1065 

25 

0764H 

ERROR 

LABEL  PUBLIC 

206  214  236  719  742  753  770 

850  863  867  982  999  1071 

574 

1628H 

ERRORDETECTED 

LABEL 

572 

504 

148BH 

EXITDONE 

LABEL 

493 

353 

0064H 

1 

EXP1 

BVTE 
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422  431 


353 

0865H 

1 

EXP2 

BVTE 

424  438 

353 

0066 H 

1 

EXPSIGN 

BVTE 

385  392  427 

4 

FALSE 

LITERALLY 

194  486  490  631 

359 

0F82H 

FLOATINGDISPLAY 

LABEL 

356 

341 

0018H 

4 

FLTADR 

STRUCTURE  AT 

368  361 

325 

0006H 

4 

FLTADR 

POINTER  PARAMETER  AUTOMATIC 
326  328 

318 

0008H 

4 

FLTADR 

POINTER  PARAMETER  AUTOMATIC 
319  321 

341 

0018H 

4 

FLTADRS 

POINTER 

341  362  365 

327 

0014H 

4 

FLTADRS 

STRUCTURE  AT 

329  330 

328 

0010H 

4 

FLTADRS 

STRUCTURE  AT 

322  323 

341 

WroWi 

4 

FLTDATA 

BYTE  BASED(FLTADRS)  ARRAY(4) 
362  365 

327 

0814H 

4 

fLTPTR 

POINTER 

327  328 

320 

0010H 

4 

FLTPTR 

POINTER 

320  321 

153 

UPtllH 

45 

FORCEUPPERCASE 

PROCEDURE  PUBLIC  STACK=0004H 
185  315 

23 

Aflrtflll 

wwn 

1 

FTERR 

BYTE  EXTERNALS) 

998 

21EDH 

72 

GETCNND 

PROCEDURE  BVTE  STACK=0030H 
1050 

190 

Mftrtl  1 

OWon 

1 

H 

BYTE  PARAMETER  AUTOMATIC 

191  192 

HIGH 

BUILTIN 

66  171  458 

353 

0068H 

i 

I 

BYTE 

1 


49 
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991  0073H  1  I 

273  0059H  1  I 

251  8068H  1  I 

654  086EH  1  I 
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II.  DOS86  -  THE  DISK  OPERATING  SYSTEM 


The  disk  operating  system  was  designed  to  maintain  to 
the  degree  possible  compatibility  with  the  Intel  Micro¬ 
development  System  (MDS)  and  hence  the  ISIS  disk  operating 
system.  The  primary  goal  of  the  disk  operating  system  was 
to  allow  the  user  to  compile,  link  and  locate  his  program 
using  the  MDS,  convert  to  hexadecimal  file  format  and  then 
load  directly  to  the  8086  from  the  flexible  disk  media. 

This  type  of  system  was  necessary  as  the  user's  MDS  is  phy¬ 
sically  separted  from  the  point  of  operation  of  the 
USAFA/8086 .  Further,  this  operating  system  .provides  an 
ideal  opportunity  to  venture  into  the  compiler,  editor, 
etc.,  software  areas  from  the  USAFA/8086. 

The  following  primary  control  characters  are  recognized 
by  DOS86: 

R:  Read  a  file  directly  into  memory 
W:  Write  a  file  directly  from  memory 

D:  Display  a  listing  to  the  console  of  the  files  on  the  diskette 
E:  Erase  a  given  file 

I:  Input  a  hexadecimal  file  into  memory  (primary  download) 

K:  Copy  a  file  from  one  drive  to  the  other 
N:  Namechange  of  an  existing  file 
A:  Attribute  change  of  an  existing  file 

Each  of  these  capabilities  relies  on  the  existance  of  a  set 
of  utility  routines.  Part  of  our  utility  routines  are 
grouped  in  a  submodular  called  DATA  TRANSFER  ROUTINES.  Fig¬ 
ure  8  shows  these  procedures. 


In  addition  to  these  utilities  a  group  of  relatively  un¬ 
related  procedures  are  necessary  to  support  operations.  Six 
such  procedures  are  included  in  a  submodule  called  SUPPORT 
ROUTINES.  Table  3  shows  the  functions  of  these  routines. 

TABLE  3.  SUPPORT  PROCEDURES 


ROUTINE 

FUNCTION 

ABM$2ER0 

Makes  a  given  sector  on  a  given  track  available 
for  further  use. 

PREE$  SECTOR 

Identifies  an  available  sector  on  a  track  and 
alters  the  ABM. 

MAKE$LINK 

Given  the  number  of  required  sectors,  this 
procedure  creates  an  appropriate  linkage  map. 

AVAILABLE^ 

SECTORS 

Determines  the  number  of  free  sectors  remaining 
on  the  diskette. 

PINDSFILE 

Determines  if  a  named  file  exists  and  locates  it 

i 

AVAIL$DIR$ 

Determines  the  availability  for  a  directory 

ENTRY 

entry  to  be  made. 

The  command  routines  were  written  on  a  separate  submo¬ 
dule  from  the  driver  routines  to  allow  for  the  possibility 
of  direct  user  access  to  the  disk  subsystem  through  this 
software.  The  easiest  approach  to  description  here  seems  to 
be  to  chart  the  interconnections  of  each  command  routine 
with  those  support  procedures  it  uses.  The  RENAME  procedure 
is  shown  in  Figure  9. 


! 


FIGURE  9.  RENAME  PROCEDURE  RELATIONS 


m 


The  attribute  change  routine  is  not  much  different  and  is 
diagrammed  in  Figure  10. 


FIGURE  10.  ATTRIBUTE  CHANGE  PROCEDURE  RELATIONS 


The  erase  command  is  diagrammed  in  Figure  11 
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FIGURE  11.  ERASE  PROCEDURE  RELATIONS  * 
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The  erase  procedure  actually  does  not  erase  the  data# 
rather  it  changes  the  flag  in  the  directory  to  indicate  the 
file  is  non-active  and  makes  the  sectors  available  by  alter¬ 
ing  the  allocation  bit  map.  An  erased  file  can  actually  be 
recovered  if  no  additional  files  have  been  created  since  the 
erasure. 

The  copy  procedure  (spelled  KOPY  to  avoid  confusion  with 
the  use  of  C  for  the  clear  breakpoint  function  in  USAF86)  is 
reasonably  complicated  since  it  uses  files  on  each  of  the 
two  disk  drives.  The  kopy  routine  was  designed  to  allow  use 
with  a  disk  formatting  routine  which  is  not  included  with 
DOS86.  The  kopy  procedure  is  detailed  in  Figure  12. 


FIGURE  12.  KOPY  PROCEDURE  RELATIONSHIPS 


The  read  routine  is  implemented  very  easily  using  the 
previously  mentioned  support  routines.  These  relationships 
are  shown  in  Figure  13. 


FIGURE  13.  READ  PROCEDURE  RELATIONSHIPS 
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The  READ$WRITE$PAR$ IN  routine  used  in  the  Read  routine 
is  merely  a  convenient  procedure  used  to  detail  both  the 
drive,  name,  and  optionally  the  start  and  stop  address. 
This  routine  communicates  directly  only  with  the  console  I/O 
module  of  USAF86.  Default  addresses  are  supplied  for  both 
the  start  address  (01000H)  and  the  stop  address  (07PFFH) . 
This  default  area  consumes  almost  all  of  the  user  available 
memory . 

The  WRITE  command  is  quite  similar  to  the  structure  of 
the  READ  command.  It  is  necessary  to  emphasize  that  these 
two  routines  deal  strictly  with  a  "core  image"  file.  No 
translation  of  the  data  or  data  records  takes  place  in  ei¬ 
ther  of  these  routines.  The  WRITE  command  can  be  diagrammed 
as  seen  in  Figure  14. 


FIGURE  14.  WRITE  COMMAND  RELATIONSHIPS 
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The  DIRECTORY  command  allows  the  user  to  display  the 
files  contained  on  any  diskette  to  the  console.  An  indica¬ 
tion  is  given  to  the  user  of  the  length  of  each  file  and  the 
total  utilization  of  the  diskette.  The  DIRECTORY  command  is 
detailed  in  Figure  15. 


FIGURE  15.  DIRECTORY  COMMAND  RELATIONSHIPS 


The  INPUT$HEX$FILE  (called  INITIALIZE  in  the  listing) 
routine  allows  downloading  into  the  USAFA/8086  any  file 
created  through  the  MDS-311  Utility  called  OH86.  This  rou¬ 
tine  functions  similarly  to  the  READ  routine  except  that 
this  routine  interprets  the  code  according  to  the  file  for¬ 
mat  indicated  in  the  MCS-86  Absolute  Object  Pile  Formats 
Technical  Specification.  The  diagram  of  the  INPUT$HEX$FILE 
routine  is  shown  in  Figure  16. 


FIGURE  16.  INFUT$HEX$FTIE  RELATIONSHIPS  . 
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Table  4  indicates  the  memory  locations  absolutely  used 
by  the  DOS86  module. 


TABLE  4.  DOS 8 6  DEDICATED  MEMORY  LOCATIONS 


LOCATION 


FUNCTION 


00400-0047F 

00480-004FF 

00500-0057F 

00580-005FF 

00600-0067F 

00680-0077F 

00780-0078A 


Link  Map  Buffer  #1 
Link  Map  Buffer  #2 
Directory  Buffer  #1 
Directory  Buffer  #2 
DATA  Buffer 

Allocation  Bit  Map  Buffer 

Input  Output  Parameter  Block  Buffer 


This  would  indicate  that  if  pressed,  the  user  programming 
might  actually  start  as  low  as  0078B  . 


The  following  pages  are  the  actual  PLM86  listing  of 
DOS86. 
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ISIS-II  PL/M-86  VI  1  COMPILATION  OF  MODULE  DOS 
NO  OBJECT  MODULE  REQUESTED 

COMPILER  INVOKED  BV.  PLMSb  F1FITZ  SRC  NOOBJECT  DATE (30  APR  88)  XREF 


$TITLE<'8886  DISK  MANAGEMENT  SYSTEM')  LARGE 
i  DOS:DO; 

/*  THE  FOLLOWING  SOFTWARE  IS  THE  DISK  MANAGEMENT  SVSTEH  TO 
THE  USAFA/8086  MICROCOMPUTER  THE  FUNCTIONS  THAT  IT  MILL 
PERFORM  INCLUDE  ‘READ”,  "WRITE*.  *K0PY“,  “NANECHANGER*  (RENA*), 
“ERASE".  "ATTRIBUTE  CHANGE*.  “INITIALIZE*.  AND  ’DIRECTORY*. 

TIC  SOFTWARE  IS  MODULAR  IN  NATURE  CONSISTING  OF  THE  FOLLOWING 
SEQUENTIAL  BLOCKS: 

1)  EXTERNAL  ROUTINES 

2)  GLOBAL  DECLARATIONS 

3)  DATA  TRANSFER  ROUTINES 

4)  SUPPORT  ROUTINES 

5)  COMMAND  ROUTINES 

6)  DRIVER  ROUTINES 

THIS  SOFTWARE  MAS  WRITTEN  AS  PART  OF  AN  INDEPENDENT  RESEARCH 
PROJECT,  EE499,  BY  CIC  GLENN  D.  ROSENBERGER  AND  CIC  PHILIP 
B.  FITZJARRELL  DURING  THE  FALL  SEMESTER  OF  1979.  V 
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H-'je  >" •lA'jS't’iT 

C'.TKfA.  **X'TIh£5 


*SUBtITlE'  EXTEPN*  ROUTINES') 

>  THE  FOLLOWING  PACKAGE  INCLUDES  EXTERNAL  SUBROUTIMES 
THAT  APE  USED  TO  ENTER  PARAMETERS  PROW  THE  KEYBOARD 
flWC*  DISPLAY  RESULTS  ON  THE  CRT  */ 

♦INCLUDE  LF0.EXTRN.PLH) 

2  1=  DELAY 

=  PROCEDURES )  EXTERNAL, 

2  2  =  DECLARE  C  BYTE, 

4  2  =  END; 

5  1=  DELAVtLQNG: 

=  PROCEDURE  EXTERNAL; 

6  2=  END, 

71=  5IQ$0UT$CHAR: 

=  PROCEDURES)  EXTERNAL 

8  2=  DECLARE  C  BYTE; 

9  2=  END; 

10  1  =  SIO$OUT«VTE: 

=  PROCEDURES)  EXTERNAL; 

11  2  =  DECLARE  B  BYTE; 

12  2  =  END; 

13  1  =  SIOIOUTIHORD; 

=  PROCEDURES)  EXTERNAL 

14  2  =  DECLARE  U  WORD; 

15  2  =  END-; 

16  1  =  SIOJOUTfSTRING: 

=  PROCEDURE(STR$PTR,N)  EXTERNAL 

17  2  =  DECLARE  STRTPTR  POINTER,  N  BYTE; 

18  2  =  'END; 

19  1  =  SIOIGETJCHAR: 

=  PROCEDURE  EXTERNAL 

20  2  =  END; 

21  1  =  SIOtVALIDJHEX: 

=  PROCEDURE(H)  EXTERNAL 

22  2  =  DECLARE  H  BYTE; 

23  2  =  END; 

24  1  =  5I0*HEX: 

=  PROCEDURES)  BYTE  EXTERNAL 

25  2  =  DECLARE  C  BYTE; 

26  2  =  END, 

27  1  =  SIOtGETIBVTE: 

=  PROCEDURE  BYTE  EXTERNAL; 

28  2  =  END; 

29  1  =  SIO$GET$HORD: 

=  PROCEDURE  WORD  EXTERNAL 

38  2  =  END; 

31  1  =  SIO$GET*ADDR: 

=  PROCEDURE(DEFAULT$BASE)  EXTERNAL 

22  2  =  DECLARE  DEFAULT4BASE  WORD; 

23  2  =  END; 

34  1  =  SIOtSLANKS: 

=  PROCEDURES)  EXTERNAL 

35  2  =  DECLARE  N  BYTE, 

36  2  =  END; 

37  1  =  SIOICRLF; 

PROCEDURE  EXTERNAL, 

3  8  2=  END; 
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PL/TH36  COMPILER  8086  C-ISK  MANAGEMENT  SYSTEM  30  APR  00  HUE  3  . 

EXTEPhrtL  ROUTINES 


39  1  =  SIOtNENLINE 

=  PROCEDURE  EXTERNAL; 

40  2  s  END; 

41  1  *  SUPPRESSIBLANKS: 

=  PROCEDURE  EXTERN*.; 

42  2  =  END; 

43  i  =  USER*I04GET$CHAR 

=  PROCEDURE  EXTERNAL 

44  2  -  END; 

45  1  *  DECLARE  HENORVfflRGlfPTR  POINTER  EXTERNAL  ARG1  STRUCTURE 

=  (OFF  WORD-  SEG  WORD)  AT  (@HENORV$ARGi*PTR), 

=  NEH0RV$AR6i  BASED  HEMORYIARGilPTR  BYTE, 

46  1  *  DECLARE  (ERROR,  NEXTCONNAND)  LABEL  EXTERNAL 

47  1  *  DECLARE  CHAR  BYTE  EXTERNAL 

48  1  *  DECLARE  ASCR  LITERALLY  '0DH'; 

49  1  •  DECLARE  AS8L  LITERALLY  '020H'; 
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I3UBTITLE<-  GLOBAL  DECLARATIONS' ) 

THE  FOLLOWING  BLOCKS  OF  RAM  ARE  USED  AS  BUFFERS  FOR  THE 
DATA  TRANSFER  BETNEEN  THE  MICROCOMPUTER  AND  THE  DISK: 

00400H  -  0047FH:  LINKAGE  MAP  SECTOR  BIFFER  #1 
00488H  -  004FFH:  LINKAGE  MAP  SECTOR  BUFFER  #2 
00500H  -  0057FH:  DIRECTORY  SECTOR  BUFFER  #1 
00588H  -  605FFH:  DIRECTORY  SECTOR  BUFFER  12 
00600H  -  0067FH:  DATA  BUFFER 
00688H  -  0077FH:  ALLOCATION  BIT  HAP  BUFFER  */ 

DECLARE  DIRECT0RYA<8)  STRUCTURE  (FLAG  BYTLFNAME<6>  BYTL 
NHEXT(3)  BYTLATTR  BYTL  LAST$SECT$BYTE  BYTL  NUMISECT  WORD. 
FSTILNKfSECT  BYTE, FSTILNKITRK  BYTE)  AT  <00500H)i 

DECLARE  DIRECT0RYB(8>  STRUCTURE(FLAG  BYTL  FNAKE(6)  BYTE 
NHEXT(3>  BYTE,  ATTR  BYTL  LAST*SECT$8YTE  BYTE,  NUHPSECT  WORD, 
FSTPLNKISECT  BYTE,  FST*LNK»TRK  BYTE)  AT  (00580H); 


52  i 


DECLARE  LINKK64)  STRUCTURE  (SECT  BYTE,  TRK  8YTE)  AT  (00400H); 


53  i  DECLARE  UNK2<64)  STRUCTURE(SECT  BYTL  TRK  BYTE)  AT  (0B480H); 

54  1  DECLARE  ABH<256>  BYTE  AT  (00680H); 

55  1  DECLARE  DDATA',128)  BYTE  AT  <00600H>; 

56  1  DECLARE  TRUE  LITERALLY  '0FFH'; 

57  1  DECLARE  (FILEFSECTORA,  FILEIIDENTA,  FILEPSECTORB,  FILEIIDENTB, 

FSTILNKFSECT,  FSTILNKITRK, SECTORPNUHBER, TRACKPNUMBER, 
DRIVEl,  DRIVE2)  BYTL  (STADD,  FNADD)  WORD; 

58  1  DECLARE  FILENAMES)  BYTE,  FILENAHE2<6>  BYTL  FILEEOTIG)  BYTL 

FILEEXT2G)  BYTL 

59  i  DECLARE  IOPB  WORD  EXTERNAL; 


60  1 


DECLARE  (FTERR,  DERR)  BYTE  EXTERNAL 


DECLARE  IOBP(i0)  BYTE  AT  (08780H); 


62  1 


DECLARE  LAST*ABH*8YTE  WORD  ; 


DECLARE  ABC(*)  BYTE  DATA  < 'ABCDEFGHI JKLHNOPQRSTUVWXYZ' ); 

DECLARE  ALPHANUM(*)  BYTE  DATA  ('ABCDEFGWIJKLMNOPORSTUVHXYZ0123456789/), 


67  1 


DECLARE  DIRAfBUFFAORS  WORD  DATA(00500H), 

DIRBIBUFIADRS  WORD  DATA(00580H), 

LINKUBUFPADRS  WORD  DATA(06400H), 

LINK2*8UF$ADRS  WORD  DATA(00480H), 

ABM$BUF$ADRS  WORD  DATA<00680H), 

DDATASBUFfADRS  WORD  DATA(00600H), 

DECLARE  DATAtPOINTER  POINTER, 

DPNTR  STRUCTURE(OFF  WORD,  SEG  NORD)  AT  <8DATA#P0INTER); 
DECLARE  TARGET4P0INTER  POINTER, 
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69  1 


70  2 


71  1 

72  2 

73  2 

74  2 

75  2 

76  2 

77  2 

78  2 

79  2 
88  2 
81  2 
82  2 

83  2 

84  2 


85  1 

86  2 

87  2 

89  3 

90  3 

91  3 

92  2 

93  2 


94  1 


95  2 

96  2 

97  2 

99  2 

108  2 
101  2 
102  2 


♦SUBTITLE* ' DATA  TRANSFER  ROUTINES') 

/*  THE  FOLLOWING  ROUTINE  IS  CALLED  TO  TRANSFER  DATA 
TO  AND  FROM  THE  DISK.  */ 

DISK: 

PROCEDURE  EXTERNAL; 

END; 


/*  THE  FOLLOWING  ROUTINE  FILLS  THE  INPUT/OUTPUT 
PARAMATER  BLOCK  SO  THAT  THE  PROGRAM  CAN  'TALK'  TO 
THE  DISK.  */ 

FILLIIOPB: 

PROCEDURE  (X0,  XL  X2,  X3,  X4,  X5,  Xb,  X7.  X8,  X9); 

DECLARE  (X0,  XL  X2,  X3,  X4,  X5,  Xb,  X7,  X8,  X9)  BVTE; 

IOBP(0)=X0; 

I08P(i)=XL 

I06P(2)=X2; 

I0BP(3)=X3; 

I0BP(4)=X4; 

I0BP(5)=X5; 

I0BP(6)=X6; 

IOBP <7)=X7; 

IQBP(8)=X8; 

I08P<9)=X9; 

IOPB=0788H;  /*PUBLIC  BVTE  SPECIFYING  LOCATION  OF  IOPB*/ 

END  FILLIIOPB; 

/*  THE  FOLLOWING  ROUTINE  IS  CALLED  TO  SEE  IF  THE  DISK 
FAILS  TO  OPERATE  PROPERLY.  IT  OUTPUTS  AN  ERROR 
MESSAGE  AND  RESETS  THE  SYSTEM  FOR  THE  NEXT  COMMAND.  */ 

ERRORJCHECKER: 

PROCEDURE; 

FTERR=FTERR+1-L/*DUMMY  FOR  COMPILER*/ 

IF  (FTERR  O  0)  OR  (DERR  O  0)  THEN  DO; 

CALL  SIO*OUT*STR1NG(0( 'FATAL  ERROR,  DISK  RELATED'), 25); 

GO  TO  NEXTICOMMAND; 

END; 

END  ERRORICHECKER; 

/*  THE  FOLLOWING  PROCEDURE  IS  USED  TO  ESTABLISH  IOPB(l), 

WHICH  TELLS  THE  DISK  WHICH  DISK  DRIVE  IS  BEING  USED  AND 
WHETHER  TIC  COMMAND  IS  A  READ  <INOUT=0>  OR  A  WRITE  (INOUM).  */ 
IOPBWNE. 

PROCEDURE  (INOUT, DRIVE)  BYTE; 

DECLARE  (INOUT,  DRIVE,  XI)  BYTE; 

INOUT=INOUT+l-L/*OUNMY  STATEMENT*/ 

IF  INOUT=0  THEN  X1*04H;  /*  READ  */ 

ELSE  Xi=86H;  /*  WRITE  */ 

X1=X1  OR  SHL(DRIVE,  4); 

RETURN  XL 
END  IOPBJONE, 

/*  THE  FOLLOWING  PROCEDURE  IS  USED  TO  READ  OR  WRITE  A  DIRECTORY 
SECTOR  INTO  OR  FROM  ONE  OF  THE  TWO  DIRECTORY  BUFFERS  IN  SYSTEM 
RAM  'INOUT'  SPECIFIES  READ  DISK  (INOUT=0>  OR  WRITE  TO  DISK  (INOUM). 

78 
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PL/N-36  COMPILER  80EE  DISK  MANAGEMENT  SYSTEM 
DATA  TPPN5FER  ROUTINES 


DRIVE  SPECIFIES  WHICH  DISK  DRIVE  IS  TO  BE  EMPLOYED.  'SECTOR' 
SPECIFIES  WHICH  OF  THE  25  DIRECTORY  SECTORS  IS  TO  BE  READ  OR 
WROTE  FINALLY,  'IDENT'  SPECIFIES  WHETHER  TO  USE  DIRECTORY^  (0) 
OR  DIRECTOR YB‘,1).  */ 

103  1  DIRJIWOUT: 

PROCEDURE  aNOUT,  DRIVE,  SECTOR.  IDENT); 

2  DECLARE  < INOUT,  DRIVE,  SECTOR,  IDENT,  Pi,  P5,  P6)  BYTE 

2  Pl=IOPB*ONE< INOUT,  DRIVE);  /*  SPECIFY  READ/WRITE  AND  DRIVE  V 

2  IDENT=IDENT+l-i,  /*  DUMMY  STATEMENT*/ 

2  IF  IDENT=0  THEN 

2  DO;  /*  SPECIFY  BUFFER  LOCATION  */ 

3  P5=L0W(DIRA«UF$ADRS); 

3  P6=HIGH(DIRA$KJF$ADRS); 

3  END; 

ELSE 

2  DO; 

3  P5=LOW(DIR8$8UFIADRS); 

3  P6=HIGH(DIRBI8UFIADRS); 

3  END; 

2  CALL  FILLilOPBtBBH,  PI,  01, 01,  SECTOR,  P5,  P6, 0, 0, 0); 

2  CALL  DISK; 

2  CALL  ERRORJCHECKER; 

2  END  DIRfINWUT; 

/*  THE  FOLLOWING  PROCEDURE  IS  USED  TO  TRANSFER  THE  ALLOCATION 
BIT  MAP  OF  THE  DISK  IN  THE  DRIVE  SPECIFIED  BV  'DRIVE'  WITH 
INOUT  SPECIFYING  A  READ  FROM  DISK  TO  THE  ABM  BUFFER  (INOUT=8), 

OR  A  WITE  TO  DISK  FROM  THE  ABN  BUFFER  (IN0UT=1)  */ 

1  ABM*IN»OUT: 

PROCEDURE  (INOUT, DRIVE); 

2  DECLARE  ( INOUT,  DRIVE,  Pl,  P5,  P6)  BYTE; 

2  P1=IOP8JONE( INOUT,  DRIVE);  /*  SPECIFV  READ/HRITE  AND  DRIVE  */ 

2  P5=L0W(ABH$BUF$ADRS>; 

2  P€=HIGH(fmeUFfPDRS)i  /*  SPECIFV  BUFFER  LOCATION  */ 

2  CALL  FILL*IOPB(00H  PL  01, 02, 02,  P5,  P6, 0, 0, 0); 

2  CALL  DISK; 

2  CALL  ERRORSCHECKER; 

2  CALL  FILL$IOPB(00H,  PL  0L  02, 02, 00, 07, 00. 00, 00); 

2  CALL  DISK; 

2  CALL  ERRORSQECKERi 

2  END  ABWINIOUT; 


/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  READ  (INOUT=0)  OR  WRITE 
(INOUT=l)  A  SECTOR  OF  A  LINKAGE  MAP  TO  OR  FROM  TIC  DISK 
SPECIFIED  0V  'DRIVE'.  'TRACK'  AND  'SECTOR'  IDENTIFY  THE 
LOCATION  OF  THE  LINKAGE  MAP  SECTOR  ON  THE  DISK  DRIVE,  AND 
'IDENT'  IS  USED  TO  IDENTIFY  WHICH  OF  THE  TWO  LINKAGE  NAP 
BUFFERS  <IDENT=0  IS  LINKL  IDENT=i  IS  LINKS)  THAT  IS  TO  BE  USED.  */ 

1  LINKIINfOUT : 

PROCEDURE  ( INOUT,  DRIVE,  TRACK,  SECTOR,  IDENT); 

2  DECLARE  ( INOUT,  DRIVE,  TRACK,  SECTOR,  IDENT,  PL  P5,  P6)  BYTE 

2  Pl=IOPB*ONE<INOUT,  DRIVE);  /*  SPECIFV  READ/WRITE  A»  DRIVE  */ 

2  IDENT=IDENT+i-L  /*  DWKY  COMPILER  STATEMENT*/ 

2  IF  IDENT-0  THEN 

127  2  DO;  /*  SPECIFV  BUFFER  LOCATION  */ 

128  2  P5=LQW(LINKlfBUF*ADRS>; 


79 


Y 


PL/N-86  COMPILER: 


123  2 

148  2 


St?'?':'  >'-:Sk  HrNHuEH£.HT  iVSTEfl 
DiSTh  TRANSFER  RiMiNtS 


30  APR  80  PAGE  8 


141  2 

142  3 


143 

144 

145 

146 


14?  2 

148  2 


149  1 


159 

151 

152 

153 

154 
IK 

156 

157 

158 

159 
168 
161 
162 

163 

164 

165 

166 


2 

2 

2 

2 

2 

2 

2 

3 

3 

2 

3 

3 

3 

2 

2 

2 

2 


P6=H  I GH  >.  L I HK1I8UF  IflDRS) ; 


END, 

ELSE 

DO; 

P5=L0W<LINK24BUF$ADRS>; 

P6=HIGH(LINK248UF4ADR3); 

END, 

CALL  FILL*IOPB(00H,  PL  0L  TRACK,  SECTOR,  P5, P6, 0, 0, 0); ' 

CALL  DISK; 

CALL  ERR0R4CHECKER; 

END  LINKFINIOUT; 

/*  THE  FOLLOWING  PROCEDURE  IS  USED  TO  TRANSFER  GENERAL 
DATA  TO  OR  FROM  THE  DISK  TRACK  AND  SECTOR  SPECIFIED  0V  TIC 
FORMAL  PARAMETERS.  INOUT  IS  USED  TO  DETERMINE  HHEMR  IT  IS 
A  READ  < INOUT=0>  OR  WRITE  (INOUT=l>.  IF  DATAADDRESS*8  TIEN  TIC  DATA 
TRANSFERED  COMES  FROM  OR  GOES  TO  THE  DATA  BUFFER  IF  DATAAORESSO0, 

THEN  THE  DATA  IS  TRANSFERS)  TO  THE  LOCATION  SPECIFIED  BV  DATAADRESS.  */ 
DATA$JNWUT: 

PROCEDURE  (INOUT, DRIVE, TRACK, SECTOR, DATAADRESS); 

DECLARE  ( INOUT,  DRIVE,  TRACK,  SECTOR,  PL  P5,  P6)  BYTE;  ' 

DECLARE  DATAADRESS  WORD; 

P1=I0PBWNE<  INOUT,  DRIVE);  /*  SPECIFY  READ/WRITE  AND  DRIVE  */ 
DATAADRESS=DATAADRESS+l-L/*DUmV  COMPILER  STATEMENT*/’ 

IF  DATAADRE5S=0  THEN 

DO;  /*  SPECIFY  BUFFER  LOCATION  */ 

P5=LOW(DDATA$8UFfADRS); 

P6=HIGH(D0ATA$®JFIRDRS); 

END; 

ELSE 

DO; 

P5=L0M(DATAADRESS>; 

P6=HIGH(DATAADRESS); 

END; 

CALL  F!LL*IOPB(00H,  PL  0L  TRACK,  SECTOR,  P5,  P6, 0, 0, 0); 

CALL  DISK; 

CALL  ERR0R4CHECKER; 

END  DATRJINWUT; 
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♦SUBTJTL£( ' SUPPORT  ROUTINES' ) 

/♦  THE  FOLLOWING  PROCEDURE  IS  USED  TO  WRITE  fl  ZERO  TO  THE 
ALLOCATION  BIT  HAP  LOCATION  CORRESPONDING  TO  TIE  SECTOR 
AND  TRACK  CORRESPONDING  TO  THE  FORHAL  PARAMETERS.  THUS 
MAKING  THE  SECTOR  AVAILABLE  ♦/ 

167  1  ABmZERO: 

PROCEDURE  (TRACK, SECTOR); 

168  2  DECLARE  (TRACK,  SECTOR,  ABHBYTE,  MASK)  BYTE; 

169  2  DECLARE  (ABMNUH  SHIFTS,  I)  WORD; 

170  2  ABMNUH=>:D0UBLE(TRACK)*26)+D0UBLE(SECT0R)-L 

171  2  ABMBYTE=(ABHNUH/8);  /♦  DETERMINE  PROPER  BYTE  IN  BUFFER  ♦/ 

172  2  SHIFTS=(ABMNUM  MOD(8»;  /♦  DETERHI*  PROPER  BIT  IN  BYTE  ♦/ 

173  2  MRSK=7FH; 

174  2  DO  1*1  TO  SHIFTS;  /♦  DEVELOP  MASK  ♦/ 

175  3  MRSK=ROR(NASK, 1); 

176  3  END; 

177  2  ABM(ABMBVTE)=(ABM<ABMBYTE)  AND  MASK); 

178  2  END  ABMFZERO; 


/♦TIC  FOLLOWING  PROCEDURE  IS  CALLED  IF  THE  OPERATOR 
MAKES  AN  INVALID  COMMAND  ENTRY.  ♦/ 

179  1  COHMANDIERROR: 

PROCEDURE; 

180  2  IF  CHAROASCR  THEN  /♦  WRIT  UNTIL  USER  ENTERS  A  'RETURN'  ♦/ 

181  2  DO  WHILE  CHAROASCR;  /♦  BEFORE  AN  ERROR  MESSAGE  IS  PRINTED.  «/ 

182  3  CALL  5I0*GET«CHAR; 

183  3  EM); 

184  2  GO  TO  ERROR; 

185  2  END  COMMANDIERROR; 


282  2 


/♦THE  FOLLOWING  PROCEDURE  FINDS  A  FREE  SECTOR  AND  SETS  TIC 
GLQBALS  SECT0R4NUMBER  AND  TRACKttMCER  TO  IDENTIFY  IT. 

TIC  ALLOCATION  BIT  HAP  OF  THE  PROPER  DISK  DRIVE  SHOULD  BE 
ALREADY  STORED  IN  TIC  BUFFER,  AND  THIS  PROCEDURE  CHANGES 
THE  BUFFER  BUT  DOES  NOT  REWRITE  THE  ABM  TO  THE  DISK.  ♦/ 


186 

1 

FREE4SECT0R: 

PROCEDURE, 

187 

2 

DECLARE  MASK  BYTE; 

188 

2 

DECLARE  (BYTECOUNT, SHIFTCOUNT)  WORD; 

189 

2 

DECLARE  (SHIRS,  ABM$SYTE>  WORD; 

196 

2 

DECLARE  FOUND  LABEL 

191 

2 

DO  ABM$BYTE=0  TO  250; 

192 

3 

BYTECOUNT=ABMBYTL 

193 

3 

MASK*080H; 

194 

3 

DO  SHIRS*1  TO  8; 

195 

4 

SHIRCOUNT=SHIRS; 

196 

4 

IF  (ABM(ABH*BYTE>  AND  MASK>*0 

198 

4 

MASK=SHR(MASK,  1); 

199 

4 

END; 

280 

3 

END; 

201 

2 

FOUND: 

/♦  SPECIFY  SECTOR  LOCATION  */ 

SECT0R4NUHBER*L0N< (BYT£COUNT^8+SHIFTCOUNT)MOD(26))+i; 

/♦  SPECIFY  TRACK  LOCATION  ♦/ 
TRACK*NUHBER=LOW((BYTECQUNT*8+SHIFTCOUNT)/26); 


sees  ss  ssses  sis-g  gggegggs  si  sag 
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2 

2 

2 


1 

2 
2 
2 
2 
2 
2 
2 
2 

2 
2 
2 

3 
3 

3 

4 
4 

4 
4 

4 
4 
4 
3 

230  3 

231  3 

232  3 

233  3 

234  3 

235  3 

236  2 

237  3 

238  2 


239  3 

240  3 

241  2 

242  2 

243  2 

244  2 


LAST  FABWYTE^BYTEOOUNT; 

ABH  ( BYTECOUNT  >  = ABH BVTECOUNT )  OR  MASK; 
END  FREE4SECT0R. 


/♦THE  FOLLOWING  PROCEDURE  MAKES  A  LINK  MAP  ON  THE  DISK 
DRIVE  SPECIFIED  BV  'DRIVE'  FOR  'NUMSECTOR'  NUMBER  OF  SECTORS.  */ 
MAKEILINK: 

PROCEDURE  (NUMSECTOR,  DRIVE); 

DECLARE  NUMSECTOR  WORD; 

DECLARE  (DRIVE. LASTfLINKISECL  LASTFLINKITRIO  LINKISECTOR)  BYTE; 

DECLARE  LINKITRACK  BVTEi 
DECLARE  (IND»I«O..LND)  WORD; 

DECLARE  LASTILINK  LABEL 

CALL  ABHIIN$OUT(0,  DRIVE);  /♦  READ  ABM  V 

LASTfLINKISECT,  LASTILINKITRK=0; 

CALL  FREE4SECT0R; 

/♦  FIRST  LINKAGE  MAP  SECTOR  ♦/ 

FSTILNKISECL LINK$SECTOR=SECTORINUMBER; 

FSTILNKITRK,  L I NK$TRACK=TRACKINUNBER; 

DO  WHILE  TRUE; 

/♦  LOCATION  OF  PREVIOUS  LINKAGE  HAP  SECTOR  */ 

LINK2(0>.  TRK=LAST$LINK*TRIG 
LINK2(0).  SECT=LASTILINKISECT; 

DO  !W>=2  TO  63; 

LND=IND+1; 

CALL  FREEfSECTOR; 

/♦  LOCATION  OF  LINKED  SECTOR  */ 

LINK2(IND).  TRK=TRACK$NUHBER; 

LINK2CIND).  S£CT=SECTOR$NUHBER, 

/♦  NUMBER  OF  SECTORS  TO  BE  LINKED  */ 

NUMSECTOR  =NUI1SECTOR-l; 

IF  NUMSECTOR^  THEN  GO  TO  LASTILINK; 

END; 

CALL  FREEISECTOR; 

/♦  LOCATION  OF  NEXT  LINKAGE  MAP  SECTOR  ♦/ 

LIM(2(i).  TRK=TRACK$NUMBER; 

LINK2(1).  SECT=SECTOR$NUMBER; 

/♦  WRITE  CURRENT  LINKAGE  HAP  TO  DISK  ONE  SECTOR  AT  A  TIME  */ 

CALL  LINK$IN*OUT(L  DRIVE,  LINKITRACIG  LINKISECTOR.  1); 

/♦  REMEMBER  CURRENT  LINKAGE  MAP  SECTOR  */ 

LA5TILINKISECT=L1NKISECT0R; 

LASTILINK«TRK=LHK$TRACK; 

/♦  CREATE  NEW  LINK  SECTOR  ♦/ 

LINKISECTOR=LINK2(i).  SECT; 

L1NK*TRACK=LINK2<1).  TRIO 
END; 

LASTILINK:  . 

/♦  FILL  EXTRA  LOCATIONS  OF  LAST  LINK  SECTOR  WITH  ZEROES  */ 

DO  INDD-1ND  TO  63; 

LINK2(INDD).  TRIO  LINK2(INDD).SECT=0; 

END; 

/♦  SPECIFV  LAST  LINKAGE  SECTOR  ♦/ 

LINK2(1>.  TRK,.  LINK2(lJ.  SECT=0; 

CALL  LINKIINIOUT (L  DRIVE,  LINKITRACK,  LINKISECTOR. 1);  /*LAST  LINK  SECTOR*/ 
CALL  ABM*IN$OUT(l.  DRIVE);  /*  WRITE  UPDATED  ABH  */ 

RETURN; 


82 
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245 

2 

END  NAKEHIHIO 

/♦THE  FOLLOWING  TYPED  PROCEDURE  RETURNS  A  VALUE  EQUAL  TO 

THE  NUMBER  OF  AVAILABLE  SECTORS  ON  DISK  DRIVE  "DRIVE'.  V 

’) 

246 

1 

AVAILABLEfSECTORS 

PROCEDURE  (DRIVE)  WORD; 

247 

2 

OECLARE  (DRIVE.  MASK)  BYTE; 

248 

2 

DECLARE  COUNT  WORD; 

249 

2 

DECLARE  (SHIFTS.  BYTES)  WORD; 

25B 

2 

CALL  RBHfIlttOUT(0.  DRIVE);  /♦  READ  ABU  ♦/ 

251 

2 

COUNTS 

252 

2 

DO  BVTES=0  TO  250; 

253 

3 

HASM088H; 

254 

3 

DO  5HIFTS=i  TO  8) 

/♦  UPDATE  COUNT  OF  AVAILABLE  SECTORS  ♦/ 

- 

255 

4 

IF  (ABM(BYTES)  A»  MASK)=0  THEN  COUNT=COUNT+l> 

257 

4 

HASK=SNR(HASK.  1); 

258 

4 

END; 

} 

259 

3 

END; 

260 

2 

RETURN  COUNT; 

261 

2 

EM)  AVAILABLEISECTORS; 

/♦THE  FOLLOWING  PROCEDURE  SEARCHES  FOR  A  FILE  IF  THE  FILE 

IS  FOUND  ON  THE  PROPER  DISK.  THE  SECTOR  IN  HHICH  IT  IS  FOUND 

AW  ITS  LOCATION  IN  DIRECTORVA  BUFFER  IS  RETURNED  THROUGH  THE 

GLOBALS  FILEISECTORA  AND  FILEIDENTA.  IF  THE  FILE  IS  NOT  FOUND. 

THESE  GLOBALS  ARE  SET  TO  0FFH  ♦/ 

262 

1 

FINDFILE: 

PROCEDURE  (DRIVE  FILEINAMEIPTR,  NAME$EXT$PTR); 

263 

2 

DECLARE  DRIVE  BYTE 

264 

2 

DECLARE  (FILEINAMEIPTR,  NAMEIEXTIPTR)  POINTER; 

265 

2 

DO  FIL£ISECT0RA=2  TO  26;  /♦  READ  DIRECTORY  SECTORS  (2-26)  V 

266 

3 

CALL  DIRSIN$OUT(0,  DRIVE,  FILEISECTORA.  0); 

267 

3 

DO  FILEIIDENTft=0  TO  7;  /♦  CHECK  EACH  DIRECTORY  ENTRY  ♦/ 

/♦  CURRENT  FILE  PROPER  FILE  NAME  AND  EXTENSION?  ?  ♦/ 

268 

4 

IF((DIRECTORVA(FILE$IDENTA>.  FLAG=8)  AND 
((CHPB(FILEINAMEtPTR.  @DIR£CTORYA(FIL£IIDENTA).  FNANE 

6)=0FFFFH»  AND 

«CMP0(NAHE*EXT$PTR,  8DIRECTORYA(FILE$IDENTA).  NMEXT, 

3)=0FFFFH)))THEN  RETURN; 

2  70 

4 

IF  DIRECTORVA(FILEIIDENTA).  FLAG=7FH  THEN 

271 

4 

GO  TO  EXITIFILE 

272 

4 

END; 

273 

3 

END, 

274 

2 

EXITIFILE: 

FILEISECTORA.  FILEIIDENTA=0FFH;  /♦  VALUES  RETURNED  IF  FILE  NOT  FOUND  ♦/ 

1 

275 

2 

RETURN; 

276 

2 

END  FINDFILE; 

/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  HND  AN  AVIALABLE  SPOT 
IN  THE  DISK'S  DIRECTORY.  FILEJIDENTB  AND  FILEISECT0R8  ARE  SET 
TO  THE  LOCATION  IN  DIRECT0RY8  BUFFER  HHICH  IS  AVAILABLE  AND 
THE  PROPER  DIRECTORY  SECTOR  THAT  THE  BUFFER  CORRESPONDS  TO.  IF 
NO  ROOM  IN  THE  DIRECTORY  EXISTS.  THE  GLOBALS  ARE  SET  TO  IFFH  */ 
277  1  AVAILIDIRIENTRY: 

PROCEDURE  (DRIVE); 


83 
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278  2  DECLARE  DRIVE  BYTE; 

2  DO  FILEfSECTORB=2  TO  26; 

2  CALL  DIRIINIOUT (0<  DRIVE  FILEISECTQRB. 1); 

3  DO  FILE*IDENTB=0  TO  7; 

4  D IRECTORVB v FI LE I DENTB > .  FLAG=DIRECTORVB(FILEIDENTB)  FlAG+l-L  /'♦OUWW*/ 
/*  CURRENT  FILE?  */ 

4  IF  DIRECTORVB<FILEfIDENTB).  FIAGO0  THEN  RETURN; 

4  END; 

3  END; 

2  FILEISECTORB;  FILE*IDENTB=8FFH;  /*  VALUES  RETURNED  IF  DIRECTQRV  FULL  *f 

2  RETURN; 

2  END  AVAILIDIRtENTRV; 


r 
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h 

:  i 

COMMAND  ROUTINES 

.  i 

tSUBTITLE'.  COMMAND  ROUTINES') 

■'< 

/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  RENAME  ft  FILE  ON  TIC  DISK.  */ 

1,. 

1 1 

290 

i 

RENAME. 

*  i 

PROCEDURE  (DRIVE  OLDFILENAHEPTR.  OLDFILEEXTPTR;  NEWFILENAMEPTR; NEMFILEEXTPTR); 

1. 

291 

2 

DECLflRE  DRIVE  BYTE; 

i 

292 

2 

DECLflRE  (OLDFILENAHEPTR;  OLDFILEEXTPTR)  POINTER; 

1 

i  293 

2 

DECLflRE  (NEWFILENAMEPTR; NEWFILEEXTPTR)  POINTER; 

|  r  294 

2 

DECLflRE  (ERRORS  ERR0R2)  LABEL; 

1  **. 

[  295 

2 

CALL  FINDFILECDRIVE;  OLDFILENAHEPTR;  OLDFILEEXTPTR); 

t 

/♦  FILE  NOT  FOUND?  ♦/ 

f  r-  296 

2 

IF  FILE$SECTORft=0FFH  THEN  GO  TO  ERRORL 

•  *> 

• 

/♦  WRITE  PROTECTED?  ♦/ 

298 

2 

IF  (DIRECTORVfl(FILEIDENTA).  flTTR  AND  04H)  O  0  THEN  GO  TO  ERRGR2;  - 

: 

/♦  CHANGE  DIRECTORY  ♦/  * 

308 

2 

CALL  HOVB'NEWFILENAMEPTR,  0DIRECTORYA(FILE*IDENTA>.  FNflNL 6); 

301 

2 

CALL  MOVB(NEWFILEEXTPTR;  0DIRECTORYA(FILEIIDENTft).  WEXT>  3); 

1 

/♦  WRITE  UPDATED  DIRECTORY  ♦/ 

. 

382 

2 

CALL  DIR*IN$OUT(l;  DRIVE,  FILESECTORft  0); 

383 

2 

RETURN; 

.  304 

2 

ERROR1:  CALL  SI04NENLINE; 

385 

2 

CALL  SIO$OUT$STRING(0( 'FILE  NOT  FOUND  0,15); 

( 

306 

2 

GO  TO  NEXTFCOHHflND; 

307 

2 

ERR0R2:  CALL  SIOfNEWLINE, 

388 

2 

CALL  SIO$OUT*STRING(0( 'WRITE  PROTECTED  FILE  '),21>; 

389 

2 

GO  TO  NEXT4C0WAND; 

■  310 

2 

END  RENAME; 

, 

/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  CHANGE  TIC  ATTRIBUTES 

■ 

OF  A  FILE  ON  A  DISK.  ♦/ 

[;  311 

1 

ATTRIBUTECHANGE: 

: 

PROCEDURE  (DRIVE;  FILE4NAHEFPTR,  FNAHEIEXT$PTR»  ORATTRBYTL  ANDATTFBVTE); 

[:  ‘  '  312 

2 

DECLflRE  (DRIVE.  ORATTRBYTL ANDATTRBVTE)  BYTE; 

L  313 

2 

DECLflRE  (FILE$NAHE$PTR,FNAHE*EXT$PTR>  POINTER; 

f  314 

2 

DECLARE  ERRORS  LABEL 

1  315 

2 

CALL  FINDFILE(DRIVE  FILEINAHEIPTR.  FNAHEIEXTFPTR); 

/♦  FILE  NOT  FOUND?  ♦/ 

‘  316 

2 

IF  FILE$SECTORfl=0FFH  TICN  GO  TO  ERR0R3; 

■  .  318 

2 

DIRECTORVft(FILE*IDENTA).  ATTR=(DIRECTORYA(FILE*IDENTA).  ATTR 

OR  ORATTRBYTE);  /♦  SET  BITS  ♦/ 

319 

2 

DIRECTORVA(FILEFIDENTA).  ATTR=(DIRECTORVA(FILE$IDENTA).  ATTR 

AND  ANDATTRBYTE);  /♦  RESET  BITS  ♦/ 

/♦  WRITE  UPDATED  DIRECTORY  ENTRY  ♦/ 

320 

2 

CALL  DlRflNWUTd,  DRIVE.  FILEFSECTORA.0); 

.  i 

j 

r  •  321 

2 

RETURN; 

t 

|  322 

2 

ERRORS:  CALL  SI04NEWLINE; 

t 

! 

323 

2 

CALL  SIO$OUT$STRING(0(/FILE  NOT  FOUND  0,15); 

1 

i  324 

2 

GO  TO  NEXTICOMMAND; 

j  325 

2 

END  ATTRIBUTECHANGE; 

I 

ri 

/♦  THE  FOLLOWING  PROCEDURE  ERASES  A  FILE  FORM  THE  DISK.  */ 

:i  326 

1 

ERASE 

1 

PROCEDURE  (DRIVE.  FILEINANEIPTR,  FILEFEXTFPTR); 

i  327 

2 

DECLflRE  (DRIVE. LNKISECT,  LNKFTRK)  BYTE; 

, 

:  328 

2 

DECLARE  (FILEINAHEFPTR;  FILE4EXTIPTR)  POINTER; 

329 

2 

DECLARE  NUflBISECT  WORD; 

t 

1 

85 

I  1 

. 

L 

*  r  m*  * 
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/*  UPDATE  ABM  ♦/ 


320  2  DECLARE  I  WORD, 

321  2  DECLARE  '  LAST. ERR0R4,  ERR0P5'  LABEL 

332  2  CALL  FINOFILE'DRIVL  FILEINAME*PTR> FILE4EXTIPTR); 

/*  FILE  NOT  FOUND’  V 

333  2  IF  FILE*SECTORA=0FFH  THEN  GO  TO  ERR0R4; 

/*  IS  FILE  MRITE  PROTECTED’  */ 

335  2  IF  (DIRECTORYA(FILEIDENTA).  ATTR  AND  04H)  O  0  THEN  GO  TO  ERRORS 

/*  MAKE  FILE  NON-CURRENT  *i 
33?  2  DIRECTORYA(FILEIDENTA).  FLAG=0FFH; 

/*  WRITE  UPDATED  DIRECTORY  ENTRY  ♦/ 

338  2  CALL  DIR*IN*OUT(l,  DRIVE,  FILESECTORA,  0); 

339  2  CALL  ABM$IN*OUT(0,  DRIVE);  /*  READ  ABM  */ 

340  2  LNKKSECT=DIRECTORYA(FILE*ID£NTA).  FSTILNKISECT; 

341  2  LNK$TRK=DIR£CTORYA(FILE*IDENTA).  FST4LNK$TRK, 

342  2  NUMB$SECT=OIPECTORYA(FILE$IDENTA).  NUMISECT; 

343  2  DO  MHILE  TRUE;  /*  UPDATE  ABA  */ 

344  3  CALL  LIM(»IN«UT(0,  DRIVE  LNKJTRK,  LNKtSECT,  0); 

/*  MAKE  LINK  MAP  SECTORS  AVRILIABLE  ♦/ 

345  3  CALL  ABMfZERO(LNK$TRK,  LNKfSECT); 

246  3  DO  1=2  TO  63; 

/*  MAKE  DATA  SECTORS  AVAILIABLE  ♦/ 

347  4  CALL  ABM$ZERO(LINKi(I>.  TRK,LINK1(I).  SECT); 

348  4  NUMB4SECT =NUfB$SECT-l; 

349  4  IF  NUMB$SECT=0  TIEN  GO  TO  LAST; 

351  4  END; 

352  3  LNK*TRK=LINKi(l).  TRK; 

353  3  LNK*SECT=LINKi(l).  SECT; 

354  3  END; 

355  2  LAST: 

/♦  MRITE  UPDATED  ABM  TO  DISK  */ 

CALL  ABNWNJOUTO,  DRIVE); 

356  2  RETURN; 

357  2  ERR0R4:  CALL  SI04NEM.IIE; 

358  2  CALL  SIOMUTISTRINGW'FILE  NOT  FOUM)  0,15); 

259  2  GO  TO  NEXTJCOMMAND; 

360  2  ERRORS:  CALL  SI04NEULINE; 

361  2  CALL  SIO$OUT$STRING(0( 'FILE  MRITE  PROTECTED  0,21); 

362  2  GO  TO  lEXTICOMMAM); 

363  2  END  ERASE; 

/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  COPY  A  FILE  FROM  ONE 
DISK  TO  ANOTHER  ♦/ 

364  1  KOPY: 

PROCEDURE  (FMDRIVL  FMFILENAMEPTR,  FMFILEEXTPTR,  TODRIVL  TOFIIENAHEPTR, 
TOFILEEXTPTR,  INITIALIZEFCALLER); 

365  2  DEaARE  (FMDRIVL  TODRIVL  INITIALI2EICALLER)  BYTE; 

266  2  DECLARE  (FMFILENAMEPTR,  FMFILEEXTPTR, TOFILENAMEPTR, 

TOFILEEXTPTR)  POINTER; 

267  2  DECLARE  <FH*L1NK$TRK,  FMILINKKSECT,  TOILINKITRK, 

TOILINKFSECT,  CHARHOLD)  BYTL 
368  2  DECLARE  NUMBSECT  WORD; 

269  2  DECLARE  I  WORD; 

370  2  DECLARE  (TRANSFER,  ERR0R6,  ERR0R7,  ERRORS)  LABEL; 

/♦  JUMP  TO  TRANSFER  IF  KOPY  HAS  CALLED  FROM  INITIALIZE  ROUTINE  */ 

371  2  INITIALIZE$CALLER=INITIALIZE$CALLER+1-1; 

272  2  IF  INITIALIZEICALLERO0  THEN  GO  TO  TRANSFER; 
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274  2 

375  2 

376  2 

377  3 

378  3 

379  3 

388  3 

381  4 

382  4 

383  4 

384  3 

385  4 

386  4 

387  4 

388  4 

389  4 

390  4 

391  4 

393  4 

395  4 

397  4 

398  4 

399  4 

488  4 

401  3 

482  2 

483  2 

405  2 

406  2 

408  2 


410  2 

411  2 

412  2 

413  2 

414  2 

415  2 

416  2 

417  2 

418  2 

419  2 

420  2 

421  2 


CALL  FlNff IlE'-TODRIVE,  TOFILENANEPTR.  TQFILEEXTPTR); 

/*  DOES  FILE  ALREADY  EXIST?  */ 

IF  FILEISECTORAO0FFH  THEN 
DO; 

CALL  SIO*OUT*STRING<0l'FILE  ALREADY  EXISTS'), 19); 

CALL  SIOWEHLINE; 

IF  <DIRECTORYAtFILE*IDENTA>.  ATTR  AND  040H>  »  040H  THEN 
DO, 

OIL  SIO*OUT»STRING<0<'FILE  IS  HRITE  PROTECTED'), 23); 

GO  TO  ERROR; 

END; 

asE 

DO; 

CALL  SIO$OUT$STRING(@( 'DO  YOU  WISH  l£H  FILE  TO'), 23); 

CALL  SIOSNEULINE; 

CALL  SIOTOUTISTRING 

(0< 'REPLACE  EXISTING  FILE  (V  OR  N)?  '),32>; 

CALL  SIOIGETfCHflR;  /*  GET  USER  RESPONSE  »/ 

CHARHOLD  =  CHAR; 

CALL  SIOIGETICHRR; 

IF  CHAR  O  ASCR  THEN  CALL  COMHANDJERROR, 

IF  CHARHOLD  =  'N'  THEN  GO  TO  NEXT*COHHAND; 

IF  CHARHOLD  O  'Y'  THEN  GO  TO  ERROR; 

/*  IF  USER  HANTS  TO  REPLACE  EXISTING  FILE  THEN  ERASE  IT.  */ 
DIRECTQRYA(FILEflDENTA).  ATTR  =  0; 

CALL  DIR$INIOUT(l-  TODRIVE,  FILEfSECTORA,  0); 

CALL  ERASECTODRIVE,  TOFILENANEPTR.  TQFILEEXTPTR); 

END; 

END; 

CALL  FINDFILE'FNDRI Vt  F»f  ILENAMEPTR,  FHFILEEXTPTR); 

/*  FILE  NOT  FOUND'’  *7 
IF  FILE«ECTORA=0FFH  TVEN  GO  TO  ERR0R6; 

CALL  RVAIL$DIR*ENTRY(TODRIVE>; 

/*  IS  THERE  ENOUGH  ROOH  IN  DIRECTORY?  V 
IF  FILE*SECTORB=0FFH  TIEN  GO  TO  ERR0R7; 

/*  IS  THERE  ENOUGH  ROOH  ON  THE  RECEIVING  DISK?  */ 

TRANSFER  IF  DIRECTORYA(FILE<IDENTA).  NUH*SECT>AVAILABL£«SECTORS<TOORIVE> 
THEN  GO  TO  ERRORS; 

/*  HAKE  LINKAGE  HAP  ON  THE  RECEIVING  DISK  */ 

CALL  HAKE*LINK<DIRECTORYA<FIL£IIDENTA>.  NURtSECT, TODRIVE); 

/*  SET  DIRECTORY  ENTRIES  */ 

DIRECTORYB(FILE*IDENTB>.  FST4LNK4SECT=FST4LNK$SECT; 
DIR£CTORYB(FILE»IDENTB).  FST»LNK»TRK=FST$LNK»TRK; 
DIRECT0RY8(FILE*IDENTB).  FLAG=00; 

DIRECTORYB(FILE$IDENTB)  ATTR=DIRECTORYA(FILE$IDENTA).  ATTR; 

NUHBSECT,  DIRECT0RY6(FILE$IDENTB).  NU*SECT= 

DIRECTORYA(FILE«DENTA>.  NUHISECT; 

DIRECTORYB(FILEIIDENTB).  LAST$SECT$8YTE= 

DIRECTORYA(FILE«DENTA).  LAST4SECTI8YTE; 

CALL  HOV0<TQFILENAHEPTR,  @0IRECT0RY8'FILEiIDENTB).  FNAHL6); 

CALL  HOVB(TOFILEEXTPTR,0DIRECTORYB(FILE*IDENTB).  NHEXT,3); 

/*  HRITE  UPDATED  DIRECTORY  TO  RECEIVING  DISK  */  . 

CALL  DIRtlNfOUTO,  TODRIVE-  FILE*SECTORB,l); 
FH*LINKfSECT=DIRECTORVA(FILE$IDENTA).  FST$U*C*SECT; 

/*  DETERMINE  FIRST  LINKAGE  SECTORS  */ 
FIW.INK$TRK=DIRECTORYA(FILE$IDENTA).  FSTILNKITRK- 
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422  2 

423  2 

424  2 

425  3 

426  3 

427  3 

428  4 


429  4 

438  4 

431  4 

433  4 

434  3 

435  3 

436  3 

437  3 

438  3 

439  2 

446  2 

441  2 

442  2 

443  2 

444  2 

445  2 

446  2 

447  2 

448  2 

449  2 


450  1 

451  2 

452  2 

453  2 

454  2 

455  2 

456  2 

457  2 

458  2 

466  2 

461  2 

463  2 

464  2 

465  2 

466  3 

467  3 

468  3 
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T0$LINKISECT=DIRECT0RY8(FILE$IDENTB).  FSTUNKISECT; 

T0$LIN*,.$TW(-C1IRECT0RYB<F1LE$IOEMTB>.  FST$LNK$TRIC 
DO  WHILE  TRIE; 

/♦  REFID  LINKAGE  SECTORS  V 

CFUl  LIIKSIN$OUT(flU  FMDRIVL  FM$LINK$TRK,  FWLINKISECL  0); 

CALL  LINK$IN$OUT(0/  TODRIVE,  TOUINKITRJC  TWLIMCISECL  1); 

DO  1=2  TO  63; 

/*  READ  OLD  FILE  */ 

CALL  DATA$IN$OUT<0;  FNDRIVL  LIWCl(I).  TRIO 
LlNKl(I).  SECL0); 

/*  HRITE  NEW  FILE  */  \ 

CALL  DATAtlWOUTO,  TOORIVt  LINK2(I).  TRK, 

LINK2<  I).  SECT,  0); 

NUHBSECT=NUMBSECT-1; 

IF  NUHBSECT=0  THEN  RETURN; 

END; 

/*  UPDATE  LINKAGE  NAP  */ 

FMLINKISECT=LINK1(1).  SECT; 

FWLINKITRK=LINKi(l).  TRK; 

T0ILINKISECT=LINK2(1>.  SECT; 

T0ILINKISECT=LINK2(1).  TRK; 

END; 

RETURN; 

ERRORS:  CALL  SIOSNEULINE; 

CALL  SIO$OUT$STRING(W  'FILE  NOT  FOUND  0,15); 

GO  TO  NEXTICOMHAND; 

ERROR?:  CALL  SIOIMEHLINE; 

CALL  SIOlOUTiSTRINGW'NO  ROOM  IN  RECEIVING  DIRECTORV  0.31); 

GO  TO  NEXTIC0I1HAND; 

ERR0R8:  CALL  SIOINEWLINE; 

CALL  SIOIOUTISTRING(@('NOT  ENOUGH  ROOH  ON  RECEIVING  DISK  0,34); 

GO  TO  NEXTICONHAND; 

END  KOPV; 

/*  THE  FOLLOWING  PROCEDURE  WRITES  A  FILE  FROH  PCHORV  LOCATIONS 
STADD-FNADD  TO  THE  DISK.  */ 

HRITE: 

PROCEDURE  (DRIVE,  FILEINAHEIPTR,  FILEIEXTIPTR,  STADD,  FNADD); 

DECLARE  (DRIVE,  LASTISCTORlBYTH,  LNKSECT,  LNKTRK,  CHARHOLD)  BVTL 
DECLARE  (FILEINAHEIPTR, FILEIEXTIPTR)  POINTER; 

DECLARE  (STADD,  FNADD,  NUMISECTOR,  PTR)  WORD; 

DECLARE  (LAST,  ERRORS,  ERROR10)  LABEL 
DECLARE  IND  WORD; 

A  DETERNINE  WINGER  OF  SECTORS  NEEDED  */ 

NUHISECTOR=(FNADO-STADD+1)/128; 

LASTISECT0RIBVTE=(FNADD-STADD+1)  HOD  (128); 

IF  LAST ISECTORI8VTE-0  THEN  LASTISECT0R«VTE=128; 

ELSE  NUHtSECTOR=NUNISECTOR+L 

IF  NUWSECTOR  >  AVAILABLEISECTORS(DRIVE)  THEN  GO  TO  ERRORS; 

CALL  FiNDFILE(DRIVE  FILEINAHEIPTR,  FILEIEXTIPTR); 

/*  DOES  FILE  ALREADV  EX  ISP  */ 

IF  FILEISECTORA  O  0FFH  THEN 
DO; 

CALL  SI0I0UTISTRING(8('FILE  ALREADV  EXISTS0,1S); 

CALL  SIOINEWLINE, 

IF  (DIRECTORVA(FILEIDENTA).  ATTR  AND  048H)  *  040H  THEN 
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469  3 

470  4 

471  4 

472  4 

473  3 

474  4 

475  4 

476  4 

477  4 

478  4 

479  4 

488  4 

482  4 

484  4 

486  4 

487  4 

488  4 

489  4 

490  3 

491  2 

492  2 

494  2 

495  2 

496  2 

497  2 

498  2 

499  2 

506  2 

501  2 

582  2 

503  2 

504  2 

505  2 

506  2 

507  2 

508  3 

509  3 

510  4 

511  4 

512  4 

514  4 

515  4 

516  3 


DO;  - 

CALL  SIC&OUTfSTRING 

(0<TILE  IS  WRITE  PROTECTED'), 23); 

GO  TO  ERROR; 

END; 

ELSE 

DO; 

CALL  SIOIOUTISTRING 

(0CDO  YOU  WISH  NEW  FILE  TOO,  23); 

CALL  SIO$NEMLINE> 

CALL  SIOFOUTISTRING 

(0< 'REPLACE  EXISTING  FILE  (V  OR  N)?0,31); 

CALL  SIOIGETFCHAR;  7*  GET  USER  RESPONSE  */ 

CW*HQLWm 

CALL  SIO$GET$CHAR; 

IF  CHAR  O  ASCR  THEN  CALL  COHHANDIERRQR; 

IF  CHARHOLD  =  'N'  THEN  GO  TO  NEXTICONNAND; 

IF  CHARHOLD  O  'V'  THEN  GO  TO  ERROR; 

7*  IF  USER  HANTS  TO  REPLACE  EXISTING  FILE  THEN  ERASE  IT  *7 
DIRECTORYA(FILEIDENTA).  ATTR=0; 

CALL  DIRIINIOUTd,  DRIVL  FILESECTORA,  0); 

CALL  ERASE  (DRIVL  FILE#»«PTR,F1LE$EXT$PTR); 

END; 

END; 

CALL  AVAIL»IR$ENTRY(DRIVE); 

7*  IS  THERE  ENOUGH  ROOH  IN  THE  DIRECTORY?  *7 
IF  FILE*SECTORB=0FFH  THEN  GO  TO  ERROR10; 

7*  CREATE  DIRECTORY  ENTRY  *7 
DIR£CTORVB(FILE$IDENTB).  FLAG=0; 

CALL  HOVB(FIL£FNAHE$PTR,  0DIRECTORVB(FILE*IDENTB).  FNflNL  6);  , 
CALL  HOVB(FILE*EXT$PTR,  0DIRECTORYB(FILEf IDENTB).  (NEXT*  3);  * 
DIRECTORVB(FILE$IDENTB>.  ATTR=08; 

DIR£CT0RY8(FIL£IIDENTB>.  NUH*SECT=NUK*SECTOR; 
DIRECTORVB(FILE$IDENTB>.  LASTISECT$BYTE=LAST»SECT0R4BYTL 
7*  HAKE  LINKAGE  HAP  *7 
CALL  HAKEJLINK CNUH4SECT0R,  DRIVE); 

DIRECTORYB(FILEFIDENTB).  FST$LNK$SECT=FST$LNK*SECT; 
DIRECTORYB(FILEIIDENTB).  FST$LNK$TRK=FST*LNK$TRK; 

CALL  DIRlINIOUTa  DRIVE,  FlLEfSECTCRLl); 

PTR=STADD-128; 

LNKSECT=FST$LNK$SECT; 

LNKTRK=FST$LNKITRIG 

7*  THE  DATA  IS  TRANSFERED  IN  THIS  BLOCK  *7 
DO  WHILE  TRUE- 

7*  READ  LINKAGE  HAP  */ 

CALL  LINKIINIOUT (0,  DRIVE,  LNKTRK,  LNKSECT,  1); 

DO  IND=2  TO  63; 

PTR=PTR+128; 

NUH*SECTOR=NUH*SECTOR-l; 

IF  NUHISECTOR=0  THEN  GO  TO  LAST; 

7*  TRANSFER  DATA  HERE  *7 
CALL  DATAiIN$OUT(l>  DRIVL  LINK2(IND>.  TRK, 

LINK2(IND).  SECT,PTR); 

END. 

7*  GET  NEXT  LINKAGE  HAP  SECTOR  *7 
LNKSECT=LINK2(1).  SECT; 
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517  3  LNKTRK=lINK2<1>.  TRk; 

518  3  END. 

7*  SET  EXCESS  BYTES  IN  LAST  DATA  SECTOR  TO  ZERO  *7 

519  2  LAST.  CALL  SETB(00, 80DATA, 128); 

528  2  DPNTR.  SEG=0; 

521  2  TPNTR.  SEG=8; 

522  2  OPMTR.  OFF=PTR> 

523  2  TPNTR  OFF=DDATA*BUF#ADRS; 

524  2  CALL  MQYB(DATR$POINTER, TARGETtPOINTER, LAST$SECTOR*8YTE); 

525  2  CALL  DATA*IN*OUT(l,  DRIVE,  LINK2UND).  TRIG  LINK2(IND).  SECT,  0); 

526  2  RETURN; 

527  2  ERRORS:  CALL  SIOtNEHLINE; 

528  2  CALL  SIO*OUT$STRING(@('NOT  ENOUGH  ROOM  ON  DISK  0,24); 

529  2  GO  TO  NEXTICOMMAND; 

538  2  ERROR10:  CALL  SIOIfOUNL 

531  2  CALL  SIOIOUTISTRING(@(/NOT  ENOUGH  ROOM  IN  THE  DIRECTORY  0,33); 

532  2  GO  TO  NEXTtCOHHAND; 

533  2  EM)  WRITE; 

7*  THE  FOLLOWING  PROCEDURE  IS  USED  TO  READ  A  FILE  FROM  THE  DISK 
INTO  LOCATIONS  STADD-fNADD  OF  MEMORY.  *7 

534  1  READ: 

PROCEDURE  (DRIVE,  FILE$NAHE$PTR,  FILEJEXTIPTR,  STADO,  FNADD); 

535  2  DECLARE  (FILE««C$PTR,  FILE$EXT*PTR)  POINTER; 

536  2  DECLARE  (DRIVE,  LIM(SECTOR,  LINKTRACK,  RTRACK,  RSECTOR,  IND)  BYTE; 

537  2  DECLARE  (STADD,  FNADD,  SECTORCNT,  AVAILSPACE,  PTR)  WORD; 

538  2  DECLARE  (LAST,  ERR0R11,  ERR0R12)  LABEL; 

539  2  CALL  FINDFIL£(DRIVE, FILEINAMEJPTR,  FILEIEXTIPTR); 

7*  FILE  NOT  FOUND?  *7 

540  2  IF  FILE»SECT0RA=8FFH  THEN  01  TO  ERRORU, 

542  2  SECTORCNT=DIRECTORYA(FILE*IDENTA).  NUN$SECT; 

543  2  AVAI LSPACE=FNADD-ST ADD; 

7*  IS  THERE  ENOUGH  ROOM  IN  RAH?  */ 

544  2  IF  (128*(DIRECT0RYA(FILE$IDENTA).NUWSECT)+ 

D0UBLE((DIRECT0RYA(FILE*IDENTA).LASTISECT«VTE))-128)  >  AVAILSPACE 
THEN  GO  TO  ERRCR12, 

546  2  PTR=ST ADD-128; 

547‘  2  LINKSECTOR=DIRECTORYA(FIL£fIDENTA).  FSTILNKISECT; 

548  2  LINKTRACK=DIRECTORVA(FILEIIDENTA).  FSTlUfcfTRK; 

549  2  DO  WHILE  TRUE; 

7*  READ  LINKAGE  MAP  SECTOR  */ 

550  3  CALL  LINK*IN$OUT(0,  DRIVE,  LINKTRACK,  LINKSECTOR,  0); 

551  3  DO  IND=2  TO  63; 

552  4  RTRACK=LINKl(  IND).  TRIG 

553  4  RSECT0R=LINK1(  IND).  SECT; 

554  4  PTR=PTR+128; 

555  4  SECTORCNT=SECTORCNT-1; 

7*  UPDATE  POINTER  *7 

556  4  IF  SECTORCNT=0  THEN  GO  TO  LAST; 

7*  TRANSFER  THE  DATA  *7 

558  4  CALL  DATA$IN*OUT(0,  DRIVE,  RTRACK,  RSECTOR,  PTR); 

559  4  END; 

7*  GET  NEXT  LINKAGE  MAP  SECTOR  *7 

560  3  LINKSECTOR=LIMC(i).SECT; 

561  3  LINKTRACK=LINKi(l).  TRK; 

562  3  EM); 
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563  2 


564  2 

565  2 

566  2 

567  2 

568  2 

569  2 

570  2 

571  2 

572  2 

573  2 

574  2 

575  2 

576  2 


CALl  DATRf INFOUT (0/  DRIVE*  RTRACK,  RSECTQR,  0)* 

/*  DONT  MOVE  THE  EXCESS  BYTES  FROM  RRM  TO  DISK  */ 

DPNTR  SEG=0; 

TPNTR  SEG=0; 

DPNTR  OFF=DOATA$8UF»ADRS; 

TPNTR.  0FF=PTRi 

CALL  KMKDRTAIPOINTER,  TRRGET8POIHTER#  DIRECTORYfKFILEf  IDENTA 
).  LAST$SECT*BVTE>; 

RETURN, 

ERROR11  CALL  SIOfNEHLINE, 

CALL  SIO$OUTFSTRING<0<  TILE  NOT  FOUND  'M5>; 

GO  TO  NEXTtCOmFWD; 

ERR0R12:  CALL  SIOfNEHLINE 

CALL  S1O$OUT$STRING(0( 'NOT  ENOUGH  ROOM  ALLOCATED  IN  R AH  '),33)i 
GO  TO  NEXTICOMAND; 

END  READ; 
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FSUBTiTLE(' DRIVER  ROUTINES') 


/♦THE  FOLLOWING  READS  IN  CHARACTERS  UNTIL  A  NON-BUNK  IS  FOUND.  */ 

577  1  5I0#j£T*LEfiD$BLANKS : 

PROCEDURE 

578  2  CALL  SIOtGETJCHflR; 

579  2  DO  WHILE  CHAR  =  RSBL 

580  3  CALL  SIO»GET«m 

581  3 

582  2  END  S I OtGET JLEADffiL  ANKS; 

/♦  THE  FOLLOWING  PROCEDURE  READS  IN  THE  DISK  DRIVE.  ♦/ 
SIO*G£T$DISK$DRlVE : 

PROCEDURE  BYTE; 

DECLARE  DDRIVE  BVTLDDERRCR  LABEL 
CALL  SI0*GET«.£AD*8LANKS; 

/♦  ENTRY  MUST  BE  IN  THE  FORM  ' :F0:'  OR  ':F1:'  OR  ELSE  AN  ERROR 
MESSAGE  IS  PRINTED  AND  THE  COMMAND  IS  ABORTED.  ♦/ 

IF  CHAR  O  THEN  GO  TO  DOERRORi 
CALL  SIO*GET$CHAR; 

IF  CHAR  O  'F'  THEN  GO  TO  DOERRGR; 

CALL  SIO*GET«HAR; 

IF  (CHAR  O  '0')  AND  (CHAR  O  '1)  THEN  GO  TO  DOERRORi 
DDRIVE=S1Q$HEX(CHAR>; 

CALL  SIO$GET$CHARi 
IF  CHAR  =  THEN  RETURN  DORIVEi 
DDERROR:  IF  CHAR  O  ASCR  THEN 
DO  HHILE  CHAR  O  ASCRi 
CALL  SIOFGETICHAR; 

ENDi 

CALL  SIO$NENLINE; 

CALL  SIO*OUT*STRING(0('DISK  DRIVE  FORMAT  ERROR'), 23)i 
GO  TO  ERROR; 

END  SIOIGETfDISKfDRIVE; 

/♦THE  FOLLOWING  PROCEDURE  IS  USED  TO  READ  IN  TIC  FILENAME 
AND  EXTENSION  FROM  THE  OPERATOR.  FILENAME1  AND  FILEEXT1  ARE 
FILL®  WITH  THE  ASCII  CHARACTERS  OF  THE  FILENAME  V 
60S  1  SlOtCETtFILEtm: 

PROCEDURE; 

607  2  DECLARE  (I,J>  INTEGER; 

608  2  DECLARE  (FIRSTLETTER,  NQEXT,  FILEEXT,  FLERROR)  LABEL 

609  2  DECLARE  TEST1  BYTE; 

/♦  THE  FILENAME  MUST  BE  1  TO  6  CHARACTERS  LONG  THE  FILENAME 
EXTENTION  CAN  BE  1  TO  2  CHARACTERS  LONG  OR  CAN  BE  OMITTED. 

THE  FILENAME  EXTENSION  SHOULD  BE  SEPERATED  FROM  THE  FILENAME 
WITH  A  PERIOD  ('. ').  */ 

610  2  CALL  USER$IO*GET$CHAR; 

611  2  DO  HHILE  CHAR=ASBL 

612  2  CALL  USER$IO$GET$CHAR; 

612  3  END; 

614  2  DO  1=8  TO  25;  /*  INSURE  THAT  TIC  FIRST  CHARACTER  IS  A  LETTER  V 

615  2  IF  CHAR=ABC(I>  THEN  GO  TO  FIRSTLETTER; 

617  2  END; 

618  2  GO  TO  FLERROR; 

619  2  FIRSTLETTER:  FILENAME1(0)=CHAR; 


582  1 

584  2 

585  2 


586  2 

588  2 

589  2 

591  2 

592  2 

594  2 

595  2 

596  2 

598  2 

599  2 

680  3 

681  3 
602  2 

683  2 

684  2 

605  2 
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620  2 
©a  3 

622  3 

623  3 

624  4 

625  5 

626  5 

627  4 

628  4 

629  3 

638  3 

631  4 

632  5 

633  5 

634  4 

635  4 

636  3 

637  3 

638  4 

648  4 

641  3 

642  3 

644  3 

645  3 

646  2 

647  2 

648  2 

649  3 

650  4 

651  4 

652  3 

653  3 

654  2 

656  2 

657  3 

658  3 

659  3 

660  4 

661  5 

662  5 

663  4 

664  4 

665  3 

666  3 

667  4 

669  4 

6?0  3 

671  3 

672  2 

674  3 

£75  2 


DO  M  TO  5  , 

CALL  SIOJGETfCHAR; 

IF  CHAR  =  '•  THEN 

DO; 

DO  J=I  TO  5; 

f*  FILL  REMAINING  LOCATIONS  WITH  NULLS  */ 
FILENAME1(J>=00; 

END; 

GO  TO  FILEEXT; 

END; 

IF  (CHAR  =  ')  OR  (CHAR  *  ASCR)  THEN 

DO; 

DO  J=I  TO  5; 

FILENAHE1(J)=00; 

END; 

GO  TO  NOEXT; 

END; 

TEST1=0; 

/*  ENSURE  THAT  ALL  CHARACTERS  ARE  ALPHANWCRIC  */ 

DO  J=0  TO  35; 

IF  CHAR  ■  ALPHANUN(J)  THEN  TEST1=0FFH; 

END, 

TESTl=TESTl+l-l;  /*0UmV  STATEMENT*/ 

IF  TEST1  *  0  THEN  GO  TO  FLERROR; 

FILENf*El(lKHflRs 

END; 

CALL  SIOWETFCHAR; 

IF  (CHAR  *  V)  OR  (CHAR  =  ASCR)  THEN 
MOEXT:  DO; 

DO  1=0  TO  2i 

FILEEXTl(I)  =00;  /*  FILL  EXTENSION  H1TH  NULLS  */ 

END; 

RETURN; 

END; 

/*  INSURE  THAT  A  PERIOD  SEPERATES  THE  NAME  AND  THE  EXTENSION  */ 
IF  CHAR  O  '  THEN  GO  TO  FLERROR; 

FILEEXT:  DO  1=8  TO  2; 

CALL  SIO$GET$CHAR; 

IF  (CHAR  =  ', ')  OR  (CHAR  *  ASCR)  THEN 
DO; 

DO  J=I  TO  2i 
F1LEEXT1U)  =  88; 

END; 

RETURN; 

END; 

TEST1=0; 

/*  INSURE  THAT  THE  FILE  EXTENSION  IS  HADE  OF  ALPHANUHERICS  V 
DO  J=0  TO  35; 

IF  CHAR  =  ALPHANUH(J)  T>£N  TEST1=0FFH* 

END, 

TESTl=TESTltl-l; 

IF  TEST1=0  THEN  GO  TO  FLERROR; 

FIL£EXT1(I)=CHAR; 

END; 

CALL  SIOIGETfCHAR; 

/*  FILENAME  ENTRV  MUST  CONCLUDE  MITH  A  ', '  OR  A  'RETURN'  •/ 
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€76 

2 

IF  '.ChhF  -  ,  >  OR  (CHAR  =  ASCR)  THEN  RETURN; 

678 

i 

FlERROR  IF  CHAR  O  ASCR  THEN 

679 

•> 

& 

DO  WHILE  CHAR  O  ASCR; 

680 

2 

CALL  SIOtGETtCHAR; 

631 

3 

END; 

682 

j 

CALL  SIOtNEWLINE; 

683 

L 

CALL  SIOtOUT$STRING(0( 'FILE  NAME  FORMAT  ERROR' >,22); 

684 

2 

GO  TO  ERROR, 

685 

2 

END  SIOtGETtFILENAME; 

/*  THE  FOLOHING  IS  USED  TO  ENTER  THE  PARAMETERS  FOR  TO  READ 

AND  WRITE  COMMANDS.  ♦/ 

686 

1 

READtWRITEtPARtIN: 

PROCEDURE, 

687 

2 

CALL  SIOtNEWLINE; 

688 

2 

CALL  SI0tOUTtCHAR('*'>;  /*  OUTPUT  A  PROMPT  */ 

689 

2 

DRIVEi=SIQtGETtDISKtORIVE; 

690 

2 

CALL  SIOtGETtFILENAME; 

691 

2 

IF  CHAR  =ASCR  THEN 

692 

2 

DO; 

/*  THESE  ARE  THE  DEFAULT  ADDRESSES  IF  TOV  ARE  NOT  SPECIFIED  */ 

693 

3 

STADD  =  01000H; 

694 

3 

FNADD  =  07FFFH; 

695 

2 

RETURN; 

696 

3 

END; 

697 

2 

CALL  SIOtGETtLEADtBLANKS; 

698 

2 

STADD  =SIOtGETtWORD, 

699 

2 

IF  CHAR  =  ASCR  THEN 

700 

2 

DO; 

THIS  IS  THE  DEFAULT  ADDRESS  IF  ONLV  TO  START  ADD  IS  ENTERED 

701 

3 

FNRDO=07FFFH; 

702 

3 

RETURN; 

783 

3 

END; 

704 

2 

IF  CHAR  O  V  THEN  CALL  COMHAND1ERROR; 

706 

2 

CALL  SIOtGETtLEADtBLANKS; 

707 

2 

FNAOO=SIOtGET$MORD; 

708 

2 

IF  CHAR=ASBL  THEN  CALL  SIOtGET ILEADtBLANKS; 

X*  INSURE  THAT  THE  COMMAND  IS  TERMINATED  WITH  A  'RETURN'  */ 

719 

2 

IF  CHAR  O  ASCR  THEN  CALL  C0HNAND1ERR0R; 

712 

2 

CALL  SIOtNEWLINE; 

713 

2 

RETURN; 

714 

2 

END  READtWRITEtPARtIN; 

/♦THE  FOLLOWING  INITIATES  THE  READ  COMMAND. 

IT  IS  CALLED  FROM  AN  EXTERNAL  SOURCE.  PARAMETERS  SHOULD  BE  ENTERED 
IN  THE  FORM:  “:F0:FNAM£.  EXT, 01000.05000“  WHERE  01000  AND  05000  ARE 
THE  STARTING  AND  FINAL  ADDRESSES  IN  RAM.  BOTH  ADDRESSES  OR  JUST  THE 
FINAL  ADDRESS  PIAV  BE  OMITTED.  */ 


715 

i 

READtDRIVER 

PROCEDURE  PUBLIC; 

716 

c_ 

CALL  SIutOUTtSTRING(0('EAD  '),4>; 

717 

2 

CALL  READtWRITEtPARtIN; 

718 

2 

CALu  REACKDRIVEL  0FILENAHE1, 0FILEEXTL  STADD,  FNADD); 

719 

i 

CALl  SIOtNEWLINE; 

720 

2 

CALl  SIOtOUTtSTRING(0( 'READ  OPERATION  COMPLETED' >,24); 

721 

CALL  SIOtNEWLINE; 
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722  2  E'<0  KEwliRMR, 

/•THE  FOLLOWING  INITIATES  THE  WRITE  COMMAND 

IT  IS  CALLED  FROM  AN  EXTERNAL  SOURCE  PARAMETERS  SHOULD  EE  ENTERED 

AS  IN  THE  EXAMPLE  FOR  THE  READ'  COMMAND.  */ 

722  i  MRITEIDRIVER 

PROCEDURE  PUBLIC; 

724  2  CALL  SIG$OUT$STRING(0('RITE  '>,5); 

725  2  CALL  READIHRITEIPARIIN; 

726  2  CALL  HRITECDRIVEL  0FILENANE1,  0FILEEXT1,  STADD,  FNADD); 

727  2  CALL  SIOJOUTfSTRINGtOC  WRITE  OPERATION  COMPLETED' ),25)i 

728  2  CALL  SIOINENlINE; 

729  2  END  MRITEIDRIVER; 

/♦THE  FOLLOWING  INITIATES  THE  KOPV  COMMAND. 

IT  IS  CALLED  FROM  AN  EXTERNAL  SOURCE.  PARAMETERS  SHOULD  BE  ENTERED 
IN  THE  FORM:  “:F0:FHFILE.  EXT,  :Fl:TOFILE.  EXT'  */ 

720  i  KOPVIDRIVER : 

PROCEDURE  PUBLIC;  « 

731  2  CALL  SIOIOUTISTRING(0< /0PV  0,4); 

722  2  CALL  SIOINENLINE, 

722  2  CALL  SI0$0UT$CHAR('*O;  /♦OUTPUT  PROMPT^/ 

724  2  DRIVE2=SI0IGET$DISKIDRIVE; 

725  2  CALL  SIOIGETIFILENAME; 

736  2  IF  CHAR=ASCR  THEN  CALL  COMMANDIERROR; 

728  2  CALL  NOVBtSFILENAHEl,  8FILENAME2, 6); 

739  2  CALL  MOV8(@FILEEXTi,0FILEEXT2,3); 

748  2  DRIVtl=SIOIGET$DISK$DRIVE; 

741  2  CALL  SIOIGETIFILENAME, 

/♦  ENSURE  THE  COMMAND  TERMINATES  WITH  A  “RETURN.  •  */ 

742  2  IF  CHAR  =  '  THEN  CALL  COMMANDIERROR; 

744  2  CALL  K0PV(DRIVE2, 0FILENAHE2, 0FILEEXT2,  DRIVEl,  8FILENAHE1*  8FILEEXTL 0); 

745  2  EfD  KOPVlOfilVER; 

/♦THE  FiXLOWING  INITIATES  THE  RENAME  COMMAND 

IT  IS  CALLED  FROM  AN  EXTERNAL  SOURCE  PARAMETERS  SHOULD  BE  ENTERED 

IN  THE  FORM  “ :F8:0LDNME  EXT, NEHNME  EXT*  ♦/ 

746  1  RENAMEIDRIVER: 

PROCEDURE  PUBLIC; 

747  2  CALL  SIOIOUTISTRING<0( 'AMECHANGE  0,10); 

748  2  CALL  SIOINEWLINE; 

749  2  'CALL  SIOIOUTICHAROO;  /♦PROMPT*/ 

758  2  DRIVE1-SI0IGETIDISKIDR1VE, 

751  2  CALL  SIOIGETIFILEfNAME; 

752  2  If  CHAP  O  '.  THEM  CALL  COMMANDIERROR, 

754  2  CALL  MO'  *8 ; @F I LEf JRME1  8f ILEMA1E2, 6>i 

755  2  CALL  MO'SFSrlLEt-Tl, SFIlSE  1T2, 3>, 

756  2  CALL  2!0$G£7*f  CLEHAME 

ENS'PE  A  'FS'L'f TE-AIN.ATES  The  CGilPiMNO.  */ 

757  2  IF  CHAR-  THEM  CALL  COMftAhL'ItKROR. 

759  2  CALL  RENAME'  DR  l',  El. 0FlL£NAMt2, 0r IlEEaT2,  SFiLENAMti,  8FILEEXT1); 

760  2  END  RENAM£lD*»vEA; 

/♦THE  FOLLOWING  INITIATES  iHt  ERASE  COMMAND 

IT  IS  CALLED  FROM  AN  EXFEkhAl  SOURCE  PARAMETERS  SHOULD  BE  ENTERED 

IN  THE  «3RM  ":F0:FNfiMEEXT  ♦/ 
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761 

\ 

i  *-'E- 

WQCEPUPE  PUBLIC, 

762 

CALL  S I OfOLTi SIR I MG’. 0 t " RASt  >,5>; 

763 

2 

»3fiLL  SiOINElOit; 

764 

2 

CALL  5I0!0UT*,riAR','*'  >;  /*PRGMPT*/ 

765 

2 

DRIVEi=5i0$GE'$DlSKJ0RIVE; 

> 

766 

2 

CALL  SIOFGETIFILENAME, 

767 

2 

IF  CHAR  3  ASCR  THEN  ChLL  COftlfiNDIERROR, 

. 

769 

2 

CALL  ERASECDRIYEl,  8FILENANEL  SFILEEXTi); 

’ 

770 

2 

END  ERfiSEMMRi 

/♦THE  FOLLOWING  INITIATES  THE  ATTRIBuTElCHfiNGE  COMMAND 

IT  IS  CALLED  FROM  AN  EXTERNAL  SOURCEL  PARAMETERS  SHOULD  BE  ENTERED 

IN  THE  cORM  0  F8  FNAME.  EXT,  L  F.  NS\  THIS  HILL  MAKE  FNAME  EXT  AN  ‘ 

INVISIBLE,  FORMAL  NONSVSTErl  FILE.  THE  WRITE-PROTECTION  ATTRIBUTE 

WILL  NOT  BE  CHANGED.  */ 

■ 

771 

i 

ATTRIBUTE! CHANGEfDRIVtR : 

PROCEDURE  PUBLIC; 

772 

2 

E€CLARE  DONE  LABEL, 

773 

2 

C€CLAF:E  \fWDflTTR,  ORATTR;  BYTE, 

774 

2 

CALL  SIQ$0UTISTRIN8(8(  ‘TTRIBUTE  CHhNGE  '),16>; 

775 

2 

CALL  S!Oft£HLINE; 

776 

2 

CALL  S!0$GUT$ChrTR (.  *  •),  /^PROMPT*/ 

777 

2 

DP I VE1=S I OIGET f  D  ISktDRI  Vt, 

778 

2 

CALL  SIO*uET$FiLENAME; 

779 

2 

IF  CHAR-ASCR  THEN  CALL  CCWiNDtERRuR; 

781 

2 

OPATTR=08H; 

782 

2 

ANDATTP-0FFH; 

783 

2 

DO  MILE  TPL€ 

784 

3 

CALL  SIO!GET$LERD!BLANKS; 

/*  SET  ATTRIBUTES  ♦/ 

785 

3 

IF  CHAR=T  THEN  QRATTP=< ORATTR  OR  01H); 

787 

2 

ELSE  IF  CHARs- 'H  THEN  ORATTR*(ORATTR  OP  84H); 

789 

3 

ELSE  IF  CHAR='F'  THEN  ORATTR*  ORATTR  OR  880H>; 

791 

3 

ELSE  IF  CHARTS'  THEN  GRATTR=v ORATTR  OR.  02 Vi), 

793 

3 

ELSE  IF  CHAP=  N  THEN 

794 

3 

DO; 

RESET  ATTRIBUTES  */ 

795 

4 

CALL  SIGIGETICHAP: 

796 

4 

IF  CHAR*' I'  THEN  ANDATTRs<ANDATfR  AND  8FEH); 

798 

4 

Else  IF  CHARs  H'  then  ANDATTRs,;ANlATTR  AND  8FBH); 

888 

4 

ELSE  IF  CHAR-' F'  THEN  ANOATiR=kANDATTR  AND  07FH); 

882 

4 

ELSE  IF  CHAR=  S  THEN  ANDATTR*(ANDATTR  AND  8FDH); 

884 

4 

aSE  CALL  COMNANDIEPRGR 

885 

4 

END; 

- 

886 

3 

aSE  CALL  CQMMANDIERROR; 

88? 

3 

CALL  3I0!GET!CHAR; 

/*  CONTINUE  INPUTTING  PARAMETERS  UNTIL  A  “RETURN"  */ 

808 

? 

IF  CHARsASCR  THEN  GO  TO  DONE; 

818 

3 

aSE  IF  CHAR  O  '  THEN  CALu  CGNMANDIERROR 

END. 

813 

2 

WNE:  CALL  ATTRIBUTECHANGE(DRIVtL  ^FILENAME!  BFiLEEXTi, 

ORATTR,  ANC’ATTR), 

814 

2 

END  ATT? IBUTEfCHANGESDRI VER; 

1 

-THE  FOLLOWING  IS  USEi>  TO  iKlTiftLIZE  THE  DiSK. 
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PL-WHS  >:•? 


315  1 

813  2 

817  2 

818  2 
81?  1 

828  2 
821  2 
822  2 

823  2 

824  2 

825  2 

823  2 

827  2 

828  2 

830  2 

831  2 

832  2 

833  2 

834  3 

835  3 

833  2 

838  2 

839  2 

840  2 

841  2 

842  2 

843  2 

844  2 

845  3 

843  3 

847  3 

848  3 

849  3 

850  3 

851  3 

852  3 

853  3 

854  3 

855  2 

857  2 

859  2 

33d  2 

831  2 

832  2 

833  2 

834  2 

835  2 


r  1 


7  !'£  -• -il  rii  £■  TERNAl  SOURCE  */ 

ITNCLlOE  *  -i  rif!> 

PFOCti U^c*8’rEC  SvTEi >  B rTE- 
DECLARE  *. B'r  7E0,  BVTEl*  BvE. 

PETIjRn  SHL'SIO*ritMBi>TE0;,4)  Ok  SIOSHES(BVTEl); 
END 

GETIRECOROS 

WOCEOuRE’FIRST-, 

DECLARE  •  INC*.  lNGTH,  1,  ICHKj.  FIRST,  TYPE)  BYTE, 
DECLARE  RORS  rtGRD; 

DECLARE  ADRSIPTR  POINTER, 

DECLARE  * RD  BASED  A&RSIP7R)  <2>  BYTE; 

DECLARE  (DATfifiAv'EO,  RSCtFOUND)  -BYTE. 

DECLARE  <REC  BASED  TARGETIPOINTER)  (128)  BYTE, 


=  #-RSfPTR-8ADRS; 

=  !ND=8; 

=  IF  FIRSTS  THEN  GO  TO  START, 

=  ELSE  GO  TO  SE’IFARANETERS, 

=  START-  REC^0UNE'“6FrH; 

*  /♦  FIND  RECORD  HARK  V 

=  DATA$SAV5D=8FFH 

=  GETIRECIHAPK : 

*  DO  WHILE  (DDATA(IND)  O  AND  < INO  <  128), 

*  I»=IND+1: 

*  END; 

=  IF  INDrl23  THEN  RETURN,  /*  RECORD  *fi Rk  NOT  FOUND  */ 
=  *ECtFGUND«iH.; 

=  ICHK=8; 

=  /*  CHECK  FOR  WHOLE  RECORD1  AVAILABLE  ♦/ 

=  TPNTR.  SEG=0. 

=  TPNTR.  OFF*DDATAIBlF$AC‘RS+DOUBLE(  IND), 

*  LNGTH=PfiCK$0A7R-.  REC(1>,  REC<2)>, 

=  IF  127C  IND+2*LMGTH+10  THEN 

=  DO; 

=  DRTR55ftVED- 1.? 

=  DPNTR  SEG=0, 

=  DPNTR  0FF=DDATAS6Ur*ADRS; 

=  TPNTR  SEG=0: 

=  TPNTR.  »DFr=DIRB$BUFfADRS> 

=  CALL  M0'J8\DATA#P0INTER,  TARGETsPO INTER,  128); 

=  TPNTR.  SEM, 

=  TPNT?  0FF=DIRB$EUFIRDk5^0UBLE'  IND--.: 

=  RETURN, 

=  END 

=  SETffPWCTEK : 

=  IF<PfiTWSPV£[«l>  THEN  GO  TO  PROCESS, 

=  IF*;PEC*FOUNO  *1)  Then  GO  TO  PROCESS; 

=  GO  T0  *jET*RECIMARk# 

=  PROCESS '  LNGTH=PnCK${!*hTA'!REL\l)  *  REC(2- ), 

AD(  DsFftVfDATtr  REC(i),  REC,.4,i>, 

AD'O^FACKIf-AT-v  =EC<5>*  REC'«>,; 

TVPt-PAC*  *ZC<  ?>,  RED  •  3 >, 

ICH*(sMr«:eMTA‘  REu2<NGtH+18.u: 

ICHK*  IC*  -LNGTH-MiD*  6  >*hD\  1 r?E : 


PL/N-06  tyvei  ~ 


866 

2 

3 

P(r  7  , 

= 

7*'?:  if  THE  OSTft  RECORD  */ 

W 

2 

= 

DO, 

m 

4 

s 

ARui  OFF-fit'F1;. 

869 

4 

3 

DO  1=9  TO  2*LN3Trin  BY  >• 

870 

5 

= 

MEfK>'-*RR'ji=PAC<SDATA' iRK<I  h  REC<  I+l>  >; 

871 

5 ' 

= 

ICHr.=ICHf’-  rttiTORVlHfiGi. 

872 

5 

= 

flPbi  OFF=rtFul  OFF+1. 

873 

5 

r 

ENC- 

874 

4 

r 

END, 

s 

/*  TVPE  1  RECORD  IS  AN  END1  OF  FILE  +/ 

875 

3 

= 

GO  TO  EXITSRECORD; 

s 

/*  TVPE  2  RECORD  IS  AN  EXTENDED  ADDRESS  RECORD  */ 

876 

2 

3 

DO; 

877 

4 

3 

flD  ( I1  =PftCXT  DfiTfi  ( REC 9 ) ,  RtC  ( i  0 ; )  ,■ 

878 

4 

= 

0C>‘0'=P0CKfDATA(3EC(ll)>  REC(12) ), 

879 

4 

- 

ICHK1 ICHK+AD(1)+AD<0 

ftfiO 

O w 

4 

= 

RPG1  StG=ADRS; 

881 

4 

3 

END: 

3 

/*  TVPE  1  RECORD  IS  A  START  ADDRESS  RECORD  */ 

882 

3 

S 

DO; 

883 

4 

3 

AD<  1  >  =PACKID ATACREC1  REC<10>  >; 

884 

4 

= 

AD(0>fACKfDATfilS£GUl>,REC(12>>> 

885 

4 

3 

ICHK=I»:*ADa.)+AD<0/, 

886 

4 

3 

1ST.  CS=ADRS; 

887 

4 

3 

AD(l'=PACK*DATA<RECaS>,REC'14)); 

888 

4 

3 

AD'0)=?ft>;iDATA(RECa5,Sft£C<16», 

889 

4 

3 

ICHK= I CHK+fiD (1) +RD ( 6 ); 

898 

4 

3 

1ST.  IP=RDRS, 

891 

4 

3 

END; 

892 

2 

3 

BID; 

3 

/*  CHECK  PAPITV  RESULTS  */  * 

893 

2 

= 

ICHK=ICHK+l-i; 

894 

2 

3 

IF  ICHKC0  THEN  60  TO  ERPfPRR; 

896 

2 

S 

'  REC*FOUND=0FFH; 

897 

2 

3 

DATATSAVED=0FFH. 

898 

2 

= 

IWWND+1; 

899 

2 

3 

GO  TO  GETIPECJNARK, 

900 

2 

3 

ERR4PAR 

3 

CALL  SIOINEHLINE; 

901 

2 

3 

CALL  SIO$OUT$STRING<§< 'PARITY  ERROR' >,  12). 

992 

2 

3 

GO  TO  NEXTICOMNAND; 

903 

£ 

3 

EXITIRECORD  /*  CALL  STARTIPOINTER  */ 

3 

END  GETIPECORDS, 

904 

i 

3 

INITIALIZE: 

3 

PROCEDURE  PUBLIC, 

985 

2 

- 

DECLARE  (DRIVE.  SECTGRCNT.  uHKSECTOR  Lif#  TRACK)  BYTE, 

906 

2 

= 

DECLARE  ‘! NO  RTRACK,  RSECTOR.  LAST  FIRST.)  BYTE- 

3 

/+  FINISH  LOGO  */ 

907 

2 

= 

CALL  SIOtOOT*STPIha(  j1. J NPUT  HEX  FILE  ,  Bif,.  OAri,  *  ),  16, 

908 

2 

3 

DPI'-'E  =  SIOJGETJC'ISK.lORr-'E, 

909 

2 

3 

CAL'.  SIWHT*FIL3)P€» 

= 

X*  c i NO  TuE  FILE  ♦/ 

910 

2 

3 

CALL  FM-ILE'.DRi'-'E.  C*FiLENA;'l£l,  sFiLtEXTl;; 

98 


911 

2 

= 

IF  *:i£*:E:TO?A«*fH  7r£N  GO  TO  ERRORl; 

912 

2 

:£  C  ?  On.  NT -£ ! c  ECTCR V A*  -  iLEf  IDENTA,1  NUIfSECT; 

914 

2 

= 

Li TEC TOR-D IFECTORtH'.F IlEIIDENTA >  FSTILHtilSECT, 

915 

2 

= 

L  INf  TRAC^DlRECTi OSYA'  F  i  l£$  i  DENT  ft ) .  FST$lNK|7Rk, 

916 

2 

- 

FIRST=i; 

917 

2 

3 

DO  WHIus  TRUE, 

918 

2 

3 

CALL  LU*.*IN*OUT<0,  DRIVE,  LlNKTRACK,  lINRSECTOR,  0); 

919 

2 

a 

DO  INC*=2  TO  62, 

920 

4 

3 

RTRACK-LIHKI1  IND)  TRK; 

921 

4 

3 

RSECT<Ofi=LINkl' INI-.).  SECT, 

922 

4 

3 

CALL  DATA*!N*'OUT'0, DRIVE, RTRACK- RSECTOR, 0); 

923 

4 

3 

SECTORCMT =5ECT  ORCNT-1; 

924 

4 

s 

IF  SECTQRCNT=3  THEN  GO  TO  LASST, 

/*  DATA  IN  ARRAY  DDATA  AT  06O0H  V 

926 

4 

S 

CALL  GETfRECORDS I FIRST); 

927 

4 

3 

FIPST=OFFH, 

928 

4 

3 

END; 

929 

3 

3 

END; 

938 

2 

3 

LASST 

DPNTR  SEG=0H, 

931 

2 

a 

DPNTR  OFF-DDftTA$BUFfftDRS+ 
DOUBLECDIRECTORVA'FILEIIDENTAO.  LASTfStCTfB'tTEO; 

932 

2 

3 

I W)=128-D IRECTORVft.; F ILEIIDENTA > .  LASTfSECTfBYTE; 

933 

2 

CALL  SE'B'OOH.  OATAfPOINTER,  IND>; 

934 

2 

3  ' 

CALL  GETfRECORDSCFIRST); 

935 

2 

3 

RETURN- 

936 

2 

3 

ERROR1: 

CALL  SI9MEHLUE' 

927 

2 

3 

CALL  SIOfOUTfSTRINsKS'/FILE  NOT  FOUND'  >-15). 

938 

«» 

2 

•> 

3 

pur 

QO  TO  NEXTiCOfim D; 

1  TNTTIAt  T7F; 

cmv  ihj i inLiit' 

/*T»€  FOLLOWING  WILL  PRINT  OUT  ft  DIRECTORY  uIST  TO 
THE  CRT  IT  IS  CALLED  FRQN  fit  EXTERNAL  SOURCE.  FOR  INVISIBLE 
FILES  AND  ATTRIBUTES  TO  BE  SPECIFIED,  THE  USFR  HIST  ENTER  A 
*,  A"  OR  A  “0-A'1  FOR  DRIVE  0  OR  ft  FOR  DRIVE  1  #/ 
DIPECTORY$LIST 
PROCEDURE  PUBLIC, 

DECLARE  NULL  8VTE; 

DECLARE  TRANSFER  LABEL; 

DECLARE  (ATTR- DDRIVE- I)  BYTE  TOTftLSECTORS  WORD: 

CALL  SIOXJUTfSTRINQ(0«.  I  RECTORY  >,9); 

CflLt  S I Of GE7*LEAD*BlANk  Si 
/*  DOES  FIRST  CHARCTER  SPECIFY  DRIVE'5  V 
IF  (CKAR=  0O  OR  <CbAR=  1  >  THEN 
DO; 

DDRIVE=  SIO*HEX$<CHAR). 

CALL  SIOfGETfLEftDfBLANFS, 

/*  DOES  SECOND  CHARACTER  SPECIFY  NO  ATTRIBUTES?  V 
IF  CHAP-ASC?  THEN 

DO; 

ATTR=0. 

GO  TO  TRANSFER. 

END 

/*  DO  SECOND  THROUGH  FOURTH  CHARACTER  SPECIFY  ATTRIBUTES?  */ 
IF  CriAR  =  '  TmEN 

DO; 

CALL  SIG$GE7TlEAD$E:lANKS. 

IF  CHAR  O  H  THEN  CALL  COHMANDfERROR; 

99 


940  1 

941  2 

942  2 

943  2 

944  2 

945  2 

946  2 

947  2 

948  3 

949  3 

958  3 

951  3 

952  4 

953  4 

954  4 

955  3 

956  2 

957  4 

958  4 


W  *1-v  rr-Mi 


960  4 

961  4 

963  4 

964  4 

965  4 

96 6  3 

967  2 

968  2 

969  3 

979  3 

971  3 

972  3 

973  2 

974  2 

975  3 

976  3 

977  3 

979  3 

988  3 

982  3 

963  3 

984  3 

965  2 

986  2 

967  2 

988  2 

990  2 

991  2 

992  2 

993  2 

994  3 

995  3 

996  4 

998  4 


999  4 

1060  5 

1001  6 
1002  6 

1003  6 

1004  6 

1065  5 

1806  5 

1007  6 

1068  6 
1889  6 

1010  6 

1011  5 

1012  5 


‘r'm’i-ri.Hl  S:S7eH 


CrluL  SI0lGE7*LtfiDlBLANKS; 

IF  CHAR  O  ASCR  THEN  CHLL  COMMANDIERROR, 

HUR-itfHi 
30  TO  TRANSFER.' 

END, 

END, 

/*  DOES  FIRST  CHARACTER  SPECIFV  DRIVE  0,  NO  ATTRIBUTES  V 
IF  CHfiR  =  ASCR  THEN 
DO, 

DORIVE=0; 

ATTR=0; 

GO  TO  TRANSFER; 

END; 

/*  DO  FIRST  THROUGH  THIRD  CHARACTERS  SPECIFV  DRIVE  0,  ATTRIBUTES?  */ 
IF  CHAR  =  V  THEN 
DO; 

DDRIYE=0, 

CALL  SiO*GET$L0»$8LANKS; 

IF  CHfiR  O  'A'  THEN  CALL  COMMANDIERROR; 

OIL  SIOSGETILEADIBLANKS; 

IF  CHfiR  O  ASCR  THEN  CALL  COMMANDIERROR; 

ATTR=0FFH; 

GO  TO  TRANSFER;  • 

END; 

CALL  COMMANDIERROR; 

TRANSFER  CALL  SIOINEWLINE; 

/*  OUTPUT  HERDER  •/ 

CALL  SIdOUT$STRINGC0<  'FILE  EXT  DATASECTORS  ),  24); 

IF  ATTR=  0FFH  THEN  CALL  SlOMTfSTRlNGifr'  fffW),6h 
CALL  SIOINEWLINE. 

CALL  SIOINEWLINE, 

NULL=0H; 

/*  CHECK  ALL  DIRECTORY  ENTRIES  ♦/ 

DO  FILESECTORB=2  TO  26; 

CALL  DIRIIWOUT-0, DDRIVE, FILESECTORB,  1); 

DO  FILEIDENTB=8  TO  7; 

/*  DETERMINE  WHICH  FILES  SHOULD  3E  LISTED  */ 

IF  DIRECTORYB'-  FILEIIDENTB  ■  FLfiG=7FH  THEN  GO  TO  EXinWRUKT;  * 
IF<DIRECTORVB<FILEIDENTB>.  FLAG=0>  AND 
«(DIRECTORVB\FILEIDENTB>.  ATTR  AND  01H)  =  0)  OR 
<ATTR=0FFH>)  THEN 
DO, 

DO  1=0  TO  5; 

CfSl  SIOIOUTICHAR(DIRECTORVB(FILEIDENTB>.  FNAME(I)>; 

IF  DiRECTQRY8(FILEIDENTB>.  FNAME(I)=NULL  THEN 
CALL  SI0I0UTICHAR(AS6L>; 

END, 

CALL  SI0«BLANKS(2); 

DO  1=8  TO  2; 

CALL  S!0»OUT*CHfiR<DIf<ECTQRYB<FlLEIDENTB>. NMEXT(D); 

IF  DIRECTORVB(FILEIDENTB)  NMEXTU>=NULL  THEN 
CALL  SIOK)UT*CHAR(fiSBL/; 

END; 

CALL  SI0IBLANKSC6); 

CALL  SI0tOOT*WRD<DIREC7ORV8<FlUIDENTBX  NUMSECT); 

/*  DETERMINE  WHETHER  ATTRIBUTES  SHOULD  BE  LISTED  */ 
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012  5 

1014  5 

1015  6 

1016  6 

1017  6 

1013  6 

1019  S 

1020  6 
1021  6 
1022  6 

1023  6 

1024  6 

1025  5 

1026  5 

1027  4 

1028  2 

1029  2 

1038  2 

1021  2 

1032  2 

1033  2 

1034  2 

1035  1 


I1"  VIF-OFrA  Tritfi 


jO. 

Ch„  iiO$8LriNKi\5^» 

IF  iiiIR£CTORVe<nL£Il£«T0.>.  ATTR  AND  02H)  O0  THEN 
CALl  SIGIOGTlCriARv'S- >; 

IF  \0iRECTGRV6<.FlLEI&ENT6).  rlTTR  ft HD  080H)  O0  THEN 
CALL  SIOfOUTfChfilW'FO; 

IF  <DiRECT0RVBtFlLEID€NT6).  ATTR  AND  04H)  O0  THEN 
CALl  SWWUTJCfflft'MO; 

IF  (DIRECTORVB'.FIlEIDEATBX  BTIR  AND  01H  )  O0  THEN 
CALL  SIOfGUTICAARlT), 

END, 

CALL  SICtfPEWLlNE; 

END; 

END; 

END; 

EXIT*DIR*LIST 

CALL  SI0*0UTISTRrN6(0( 'TOTAL  SECTORS*  0,15); 

TOTAL $SECTORS-  07D2H  -  AVAILABLE$SECTORS(OORIVE); 

CALL  SI0$0UT«0RKT0TAL*5ECT0RS)i 
CALL  SIG$OUT*ST2If*j'0O/07D2 0,5); 

CALL  SIOSNEWLINE; 

END; 


101 
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DRIVE-  SCcTihtS 


CROSS-REFERENCE  LISTING 


DEFN  ADDR  SIZE  NAME*  ATTRIBUTES*  AND  REFERENCES 


63 

eeecH 

26  ABC 

BYTE  ARRAY<26)  DATA 

615 

54 

8688H 

256  ABN 

BYTE  ARRAY(256)  AT  ABSOLUTE 

177  196  28*  255 

65 

WWon 

2  ABMBUFADRS 

WORD  DATA 

123  124 

189 

eeiEH 

2  ABMBYTE 

WORD 

191  192  196 

168 

0875H 

1  ABMBVTE 

BYTE 

171  177 

128 

04D9H 

107  ABMINOUT 

PROCEDURE  STACK=081EH 

212  243  250  339  355 

169 

0812H 

2  ABHNUM 

WORD 

170  171  172 

167 

062EH 

114  A8MZER0 

PROCEDURE  STACK=0006H 

345  34? 

823 

CTxwn 

2  AD 

BYTE  BRSED(ADRSPTR)  ARRAY<2) 

861  862  865  877  878  879  883 

884 

885 

887 

821 

0044H 

2  ADRS 

WORD 

826  868  880  886  890 

822 

0046H 

4  AORSPTR 

POINTER 

823  826  861  862  865  877  878 

879 

883 

884 

64 

0826H 

36  ALPHANUM 

BYTE  ARRAY(36>  DATA 

638  667 

773 

008FH 

1  ANDATTR 

BYTE 

782  797  799  881  803  813 

311 

OaCkALl 

OwnfT 

1  ANDATTRBVTE 

\ 

BYTE  PARAMETER  AUTOMATIC 

312  319 

45 

0088H 

4  ARQ1 

STRUCTURE  EXTERNAl(17)  AT 

868  872  888 

49 

ASBL 

LITERALLY 

579  611  788  1803  1809 
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48  ASCR  LITERALlV 

180  181  381  480  598  599  629  647  658  676  678  679  691  699 

710  736  767  779  888  950  961  967  980 

943  08R2H  1  RTTR  BYTE 

952  963  978  982  988  998  1013 

50  860RH  1  RTTR  BYTE  MEMBER<DIRECTGRYA> 

298  318  319  335  379  397  414  468  486 

51  008RH  1  RTTR  BYTE  MEMBER(BIRECTORVB) 

414  497  998  1016  1018  1020  1022 

311  0BRRH  123  RTTRIBUTECHANGE  PROCEDURE  STRCK=0042H 

813 

771  1D20H  356  ATTRIBUTECHANGEDRIVER  PROCEDURE  PUBLIC  STRCK=0046H 

246  08ERH  113  RYAILABLESECTORS  PROCEDURE  WORD  STRCK=0024H 

408  461  1030 

277  0R4DH  141  RVRILDIRENTRY  PROCEDURE  STBCK=0028H 

485  491 


537  903CH  2  RVfllLSPflCE  WORD 

543  544 

10  0080H  18  BYTE  PARAMETER 

11 

815  0006H  1  BVTE3  BYTE  PARAMETER  AUTOMATIC 

816  817 

815  0004H  1  BYTE1  BYTE  PRRRMETER  AUTOMATIC 

816  817 

183  0818H  2  BYTECQUNT  WORD 

192  281  282  283  284 

249  082RH  2  BYTES  WORD 

252  255 

2  0800H  1  C  BYTE  PRRRMETER 

3 

7  0000H  1  C  BYTE  PARAMETER 

3 

24  0000H  1  C  BYTE  PARAMETER 

25 

47  0000H  1  CHAR  BYTE  EXTERNAL (20) 

186  181  389  391  478  488  579  586  589  592  594  596  598  599 

611  615  619  622  629  638  644  647  654  658  667  673  676  678 

679  691  699  784  708  718  736  742  752  757  767  779  785  787 

789  791  793  796  796  808  802  808  810  946  948  950  955  968 
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367  0082H  1  CHAPWLO 


451 

0087H 

1 

CHARHOU) 

CMPB 

179 

06A0H 

46 

COMMAN0ERROR 

248 

0026H 

2 

COUNT 

68 

0002H 

2 

CS 

149 

0004H 

2 

DATAADRESS 

149 

05BAH 

116 

DATAINOUT 

66 

0006H 

4 

DATAPO  INTER 

824 

0896H 

1 

DATASAVED 

55 

0608H 

128 

DDATA 

65 

wUR! 

2 

DDATABUFADRS 

584 

1725H 

DDERRQR 

384 

008DH 

1 

DDRIVE 

943 

00A3H 

1 

DDRIVE 

31 

IWW  1 

2 

DEFAULTBASE 

2 

aoDou 

WWvrf 

DELAV 

5 

oooau 

DELAVLONG 

60 

AQAAU 

WWW 

1 

DEW? 

:j,- .  ;'^*F "•*. 

961  967  973  977  980 

BVTE 

389  393  395 

BVTE 

478  482  484 

BUILTIN 

268 

PROCEDURE  STACK=0808H 

392  481  705  711  737  743  753  758  768  780  804  806  811  959 

962  978  981  985 

WORD 

251  256  260 

WORD  MEMBER(IST) 


UORD  PARAMETER  AUTOMATIC 
151  153  154  160  161 

PROCEDURE  STACK=0824H 
428  429  514  525  558  563  922 

POINTER 

66  524  568  850  933 

BVTE 

832  845  855  897 

BVTE  ARRAV<128)  AT  ABSOLUTE 
519  833 

UORD  DATA 

156  157  523  566  841  847  931  ‘ 

LABEL 

587  590  593  598 

BVTE 

594  597 

BVTE 

948  969  975  994  1830 

WORD  PARAICTER 
32 

PROCEDURE  EXTERNALS)  STACK=0800H 
PROCEDURE  EXTERNALS)  STACK=0008H 

BVTE  EXTERNAU23) 

104 
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sr 

65  006PH  -  2-  DIPA6UFA£«S  WORD  DATA 

109  110 

65  0002H  2  OmeUFmS  WORD  DATA 

113  114  849  852 

50  0500H  128  DIRECTORS  STRUCTURE  flRRflY(8)  AT  ABSOLUTE 

268  279  298  388  301  318  319  335  337  348  341  342  379  397 

488  410  414  415  416  420  4a  468  486  542  544  547  548  568 

913  914  915  931  932 

51  0580H  128  DIRECTORS  STRUCTURE  ARRRV<8)  AT  ABSOLUTE 

282  283  411  412  413  414  415  416  417  418  422  423  494  495 

496  497  498  499  501  502  996  990  1801  1002  1607  1000  1012  1816 

1018  1020  1022 

946  2374H  942  DIRECTORVLIST  PROCEDURE  PUBLIC  STACK=0028H 

103  0465H  116  DIRINOUT  PROCEDURE  STACK=0022H 

266  288  282  320  328  398  419  487  582  994 


69  0000H  DISK  PROCEDURE  EXTERNALS  STACK=0000H 

117  126  129  146  164 


772  1E66H  DONE  LABEL 

809  813 

1  035AH  DOS  PROCEDURE  STACK=8000H 

DOUBLE  BUILTIN 

170  544  841  852  9a 

66  0806H  4  DPNTR  STRUCTURE  AT 

520  522  564  566  846  847  938  9a 

94  0004H  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

95  100 

120  6004N  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

121  122 

246  0804H  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

247  250 

286  0004H  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

208  212  232  242  243 

277  8004H  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

278  280 

326  008CH  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 

227  322  238  339  244  355 

149  090AH  1  DRIVE  BVTE  PARAMETER  AUTOMATIC 
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122 

000HH 

i 

DRIVE 

BVTE  PARAMETER  AUTOMATIC 

122  124 

524 

0010H 

1 

DRIVE 

BVTE  PflRflHETER  AUTOMATIC 

526  529  550  558  562 

450 

0010H 

1 

DRIVE 

BVTE  PflRflHETER  AUTOMATIC 

451  461  462  487  488  491  500  903  508  514  525 

102 

000SH 

1 

DRIVE 

BYTE  PflRflHETER  AUTOMATIC 

104  105 

995 

9098H 

1 

DRIVE 

BVTE 

908  910  918  922 

211 

0010H 

l 

DRIVE 

BVTE  PflRflHETER  AUTOMATIC 

212  215  220 

262 

000CH 

l 

DRIVE 

BVTE  PflRflHETER  AUTOMATIC 

262  266 

290 

0814H 

1 

DRIVE 

BVTE  PflRflHETER  AUTOMATIC 

291  295  282 

57 

0054H 

1 

DRIVE1 

BVTE 

689  718  726  740  744  750  759  765  769  777  813 


57 

0055H 

1 

DRIVE2 

BVTE 

724  744 

326 

8C25H 

241 

ERASE 

PROCEDURE  STACK=002EH 

399  488  769 

761 

lCCflH 

86 

ERftSEDRIVER 

PROCEDURE  PUBLIC  STflCK=0842H 

46 

wkwi 

ERROR 

LABEL  EXTERMAL<18) 

184  382  296  471  485  684 

936 

2358H 

ERR0R1 

LABEL 

912 

294 

0B74H 

ERR0R1 

LABEL 

297  304 

454 

14ABH 

ERROR10 

LABEL 

492  520 

528 

1648H 

ERRORll 

LABEL 

541  570 

528 

1664H 

ERR0R12 

LABEL 

545  572 

47*  ttcoVn 


ERR0R2 


label 

106 


293  307 


314 

0C88H 

ERR0R3 

LABEL 

317  322 

331 

0D44H 

ERR0R4 

LABEL 

334  357 

LABEL 
336  368 

LABEL 
404  440 


LABEL 
407  443 


370  1138H  ERRORS  LABEL 

403  446 


454  1492H  ERR0R9  LABEL 

462  527 


85  03E2H  79  EPRORCHECKER  PROCEDURE  STACK=000EH 

118  127  130  147  165 

300  21F9H  ERRPAR  LABEL 

835 


1029  26E3H  EXITDIRLIST  LABEL 

997 

274  0H3FH  EXITFILE  LABEL 

271 


903  2212H  EXITRECORD  LABEL 

875 


608  1920H  FILEEXT  LABEL 

627  656 


58  0062H  3  FILEEXT1  BVTE  ARRAV(3) 

650  661  673  718  726  739  744  755  759  769  013  910 

58  0065H  3  FILEEXT2  BVTE  ARRAVG) 

739  744  755  759 

534  0008H  4  FILEEXTPTR  POINTER  PARAMETER  AUTOMATIC 

535  539 

450  6000H  4  FILEEXTPTR  POINTER  PARAMETER  AUTOMATIC 

452  463  488  496 

326  0004H  4  FILEEXTPTR  POINTER  PARAMETER  AUTOMATIC 

328  332 


331  0O5DH  ERR0R5 

370  U06H  ERRORS 

370  111FH  ERR0R7 
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5?  004DH 

57  004FH 

58  0056H 

58  085CH 

262  0008H 

534  006CH 

458  080CH 

326  0888H 

311  888CH 

57  004CH 

57  004EH 

71  035AH 

262  0960H 

319  0084H 

790  tToIRn! 

688  17B7H 

51  0080H 
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1  FILEIDENTA 

1  FILEIDENTB 

6  FILENAHE1 

6  FILENAHE2 

4  FILENAMEPTR 

4  FILENAMEPTR 

4  FILENAMEPTR 

4  FILENAMEPTR 

4  FILENAMEPTR 

1  FILE5ECT0P.fi 

1  FILESECTORB 

126  FILLI0P8 

227  FINDFILE 

1  FIRST 

1  FIRST 

FIRSTLETTER 

1  FLAG 


6VTE 


267 

268 

278 

274 

298 

288 

281 

318 

319 

325 

337 

348 

341 

342 

379 

297 

488 

410 

414 

415 

416 

420 

421 

468 

486 

542 

544 

547 

548 

568 

913 

914 

915 

931 

922 

BVTE 

281 

282 

283 

287 

411 

412 

413 

414 

415 

416 

417 

418 

422 

423 

494 

495 

496 

497 

498 

499 

5B1 

502 

995 

996 

998 

1001 

1002 

1007 

1008 

1012 

1816 

1018 

1828 

1022 

BVTE 

ARRAY<6> 

619 

625 

632 

644 

718 

726 

738 

744 

754 

759 

769 

813 

910 

BVTE  ARRAV(6) 

738  744  754  759 

POINTER  PARAMETER  AUTOMATIC 

264  268 

POINTER  PARAMETER  AUTOMATIC 
535  539 

POINTER  PARAMETER  AUTOMATIC 
452  463  488  495 

POINTER  PARAMETER  AUTOMATIC 
228  232 

POINTER  PARAMETER  AUTOMATIC 
212  215 

BVTE 

265  266  274  296  382  216  320  323  338  275  298  403  464  487 
540  911 


BVTE 

279  280  287  406  419  492  503  -  992  994 

PROCEDURE  5TACK=0016H 
116  125  128  145  162 


PROCEDURE  STACK=8030H 
295  215  222  374  482  462  529  910 

BVTE  PARAMETER  AUTOMATIC 

820  828 

BVTE 

916  926  927  924 

LABEL 
616  619 

BVTE  MErtBER(DIRECTORVB) 

282  283  413  494  996  998 
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•3866  i’!i*  MAnAGE-MEn*1  SVSTEH 
DRIVE®  SOUTihti 

50 

0000H 

1  FL.Wj 

0VTE  MEHBER<DIRECTORVA) 

268  270  337 

668 

1M4H 

FLERROR 

Lftt£L 

618  643  655  672  670 

364 

0018H 

1  FHDRIVE 

BYTE  PARAMETER  flUTOMRTIC 

365  402  425  428 

364 

0010H 

4  FHFILEEXTPTR 

POINTER  PARAMETER  flUTOMRTIC 

366  482 

364 

0014H 

4  FMFILENAMEPTR 

POINTER  PfiRflHETER  AUTOMATIC 

3 66  402 

367 

0860H 

1  FMLINKSECT 

BYTE 

420  425  434 

367 

007FH 

1  FHINKTRK 

BYTE 

421  425  435 

534 

oqoau 

2  FNADD 

WORD  PARAMETER  AUTOMATIC 

537  543 

458 

0004H 

2  FNflDD 

UORD  PARAMETER  AUTOMATIC 

453  456  457 

57 

0002H 

2  FNRDD 

WORD 

694  701  707  718  726 

51 

0001H 

6  FNAME 

BYTE  ARRAY<6)  MEMBER(DIRECTORYB) 
417  495  1001  1802 

50 

0001H 

6  FNRME 

BYTE  ARRAY(6)  MEMBER(DIRECTORYfl) 
268  300 

311 

■VMflli 

wwn 

4  FNAPEEXTPTR 

POINTER  PARAMETER  AUTOMATIC 

313  315 

190 

073flH 

FOUND 

LABEL 

197  201 

186 

06CEH 

169  FREESECTOR 

PROCEDURE  5TACK=0004H 

214  222  229 

57 

0050H 

1  FSTLNKSECT 

BYTE 

215  411  501  505 

50 

0086H 

1  FSTLNKSECT 

BYTE  MEHBER(DIRECTORVR) 

340  420  547  914 

51 

000EH 

1  FSTLNKSECT 

BYTE  MEMBER(DIRECTORYB) 

411  422  501 

51 

000FH 

1  FSTLNK7RK 

BYTE  MEHBER(DIRECTORYB) 

412  423  562 
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50 

worn 

1  FSTLNkTRK 

BYTE  MEHBER(DIRECTORYA) 
341  421  548  915 

57 

0051H 

1  FSTLNKTRK 

BYTE 

216  412  502  506 

68 

WVVII 

1  FTERR 

BYTE  EXTERNflL<22> 

86  87 

833 

1ED3H 

GETRECMflRK 

LABEL 

859  899 

819 

1EA3H 

883  GETRECORDS 

PROCEDURE  STACK=0016H 

926  934 

21 

flflflflil 

CMKwn 

1  H 

BYTE  PARAMETER 

22 

HIGH 

6UILTIN 

110  114  124  139  143 

157 

161 

687 

flfliflU 

W1U 1 

2  1 

INTEGER 

614  615  620  624  631 

644 

649 

169 

0016H 

2  I 

WORD 

174 

828 

8093H 

1  I 

BYTE 

869  878 

943 

00A4H 

1  I 

BYTE 

1808  1001  1002  1086  1007  1088 

369 

0032H 

2  I 

WORD 

427  428  429 

338 

002EH 

2  I 

WORD 

346  347 

820 

0094H 

1  ICHK 

BYTE 

839  864  865  871  879 

885 

889 

132 

0004H 

1  IOENT 

BYTE  PARAMETER  AUTOMATIC 
133  135  136 

183 

0004H 

1  IDENT 

BYTE  PARAMETER  AUTOMATIC 
104  106  107 

906 

009CH 

1  IND 

BYTE 

919  920  921  932  933 

536 

008CH 

1  IND 

BYTE 

551  552  553 

820 

0091H 

1  IND 

BYTE 

827  833  834  836  841 

843 

852 
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210 

8020H 

2 

ISO 

WORD 

220  221  223  224 

455 

0038H 

2 

IND 

WORD 

509  514  525 

219 

0822H 

2 

INOO 

WORD 

238  239 

984 

2216H 

350 

INITIALIZE 

PROCEDURE  PUBLIC  STACK=0034H 

364 

0884H 

1 

INITIALIZECALLER 

BYTE  PARAMETER  AUTOMATIC 

365  371  372 

149 

080CH 

1 

INOUT 

BYTE  PARAMETER  AUTOMATIC 

158  152 

132 

880CH 

1 

INOUT 

BYTE  PARAtETER  AUTOMATIC 

133  134 

128 

0006M 

1 

INOUT 

BYTE  PARAMETER  AUTOMATIC 

121  122 

183 

WWBI 

1 

INOUT 

BYTE  PARAMETER  AUTOMATIC 

104  185 

94 

woon 

1 

INOUT 

BYTE  PARAMETER  AUTOMATIC 

95  96  97 

61 

0780H 

18 

IOBP 

BYTE  ARRAY(10)  AT  ABSOLUTE 

73  74  75  76  77  78 

59 

anoflu 

wwn 

2 

IOPB 

WORD  EXTERNALS) 

83 

94 

0431H 

52 

IOPBONE 

PROCEDURE  BYTE  STACK=8806H 

105  122  134  152 

68 

QAOflU 

OWwl 

2 

IP 

WORD  HEMBER(IST) 

896 

68 

800EH 

4 

1ST 

STRUCTURE  AT 

886  898 

687 

8042H 

2 

J 

INTEGER 

624  625  631  632  637  638 

364 

0D7AH 

987 

KOPY 

PROCEDURE  STACK=8058H 

744 

738 

1B98H 

164 

KOPYDRIVER 

PROCEDURE  PUBLIC  STACK=885CH 

938 

2308H 

LRSST 

LABEL 

925 

986 

009FH 

1 

LAST 

BYTE 

661  866  687 
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538 

15F0H 

LAST 

LABEL 

557  563 

454 

142BH 

LAST 

LABEL 

513  519 

331 

8D37H 

LAST 

LABEL 

350  355 

62 

MMM 

2  LASTABWVTE 

HORD 

203 

211 

087AH 

LASTLIMC 

LABEL 

227  238 

208 

0078H 

1  LASTIINKSECT 

BVTE 

213  219  233 

208 

0079H 

1  LASTLIfKTRK 

BVTE 

213  218  234 

51 

'***"**» 

1  LA5TSECTBVTE 

BVTE  HBCER(DIRECTORVB) 
416  499 

58 

moH 

1  LASTSECTBVTE 

BVTE  NEWER(DIRECTORVA) 
416  544  568  931  932 

451 

00B4H 

1  LASTSECTORBVTE 

BVTE 

457  458  459  499  524 
STRUCTURE  ARRAV<64)  AT  A0SOLUTE 

347  352  353  428  434  435  552  553  560  561  920  921 

WORD  DATA 
138  139 

STRUCTURE  ARRAV<64>  AT  ABSOLUTE 

218  219  223  224  238  231  235  *236  239  241  429  436  437  514 

516  517  525 

WORD  DATA 
142  143 

PROCEDURE  STACK=8024H 
232  242  344  425  426  588  558  918 

BVTE 

914  918 
BVTE 

547  550  568 

BVTE 

215  232  233  235  242 

BVTE 


52  0400H  128  LINKi 

65  0004H  2  LINK1BUFADRS 

53  0480H  128  LINK2 

65  0006H  2  LINK2BUFADRS 

132  0544H  118  LINKINOUT 

905  009AH  1  LINKSECTOR 

536  0088H  1  LINKSECTOR 

208  807AH  1  LINKSECTOR 

209  007BH  1  LINKTRACK 
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985  0096H  1  LINKTRACK 


536  0889H  1  LINKTRfiCK 


210  9824H  2  LND 


820  0092H  1  LNGTH 


451  0085H  1  LNKSECT 


327  007DH  1  UKSECT 


451  0006H  1  UKTRK 


327  007EH  1  UKTRK 


206  0777H  371  HAKELINK 


247  007CN  1  MASK 


187  0077H  1  HflSK 


168  0076H  1  NfiSK 


45  0O00H  1  MEM0RVARG1 


45  0000H  4  MEHORVfiRGlPTR 


216  232  234  236  242 

BVTE 

915  918 
BVTE 

548  558  561 

WORD 

221  238 

BVTE 

842  843  860  864  865  869 

BVTE 

505  588  516 

BVTE 

340  344  345  353 

BVTE 

586  506  517 

BVTE 

341  344  345  352 

BUILTIN 

109  113  123  138  142  156  160  201  202 

PROCEDURE  STACKa082CH 
410  560 

BVTE 

253  255  257 

BVTE 

193  196  196  204 

BVTE 

173  175  177 

BVTE  BASED(MENORVflRGlPTR) 

870  871 

POINTER  EXTERNflL<17> 

45  870  871 


34  0008H  1  N 


BUILTIN 

308  301  417  418  495  496  524  568  738  739  754  755 

BVTE  PARAMETER 
35 


16  0000H  1  N 


BVTE  PARAMETER 
17 


■a/* 
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26 2 

0804H 

4 

NRMEEKTPTR 

POINTER  PARAMETER  AUTOMATIC 
264  268 

290 

0004H 

4 

NEUFILEEXTPTR 

POINTER  PflRWtTER  AUTOMATIC 
293  301 

290 

NwOn 

4 

NEHFILENAMEPTR 

POINTER  PARAMETER  AUTOMATIC 
293  380 

46 

AAQfllj 
WW1  » 

ttXTCOMMAND 

LABEL  EXTERNAL(19) 

90  396  389  324  359  362  394  442  445  448  483  529  532  572 
575  902  938 


51 

0007H 

3 

NEXT 

BYTE  ARR«V<3>  lEWER(DIRECTORYB) 
418  496  1007  1008 

58 

0007H 

3 

NMEXT 

BYTE  ARRfiY<3>  MEMBER(DIRECTORYA) 
268  381 

668 

18EBH 

NOEXT 

LABEL 

634  648 

941 

08A1H 

1 

NULL 

/ 

BYTE 

992  1002  1888 

368 

0638H 

2 

NUMBSECT 

HORD 

415  430  431 

329 

082CH 

2 

NUMBSECT 

HORD 

342  348  349 

51 

000CH 

2 

NU1SECT 

HORD  (©f£R<DIRECTORYB) 

415  498  1012 

50 

000CH 

2 

NUMSECT 

HORD  MEMBER(DIRECTORVfi) 

342  408  410  415  542  544  913 

206 

uwm  i 

2 

NUMSECTOR 

HORD  PARAMETER  AUTOMATIC 

207  225  226 

453 

0034H 

2 

NUMSECTOR 

HORD 

456  460  461  498  508  511  512 

67 

ftflflflu 
«WM  1 

2 

OFF 

HORD  MEffiER(TPNTR) 

523  567  841  849  852 

66 

/VWVM  1 

wwl 

2 

OFF 

HORD  MEMBER(DPNTR) 

522  566  847  931 

45 

MMU 

mnTn 

2 

OFF 

HORD  MEMBER(AROl) 

868  872 

296 

600CH 

4 

OLOFILEEXTPTR 

POINTER  PARAMETER  AUTOMATIC 

292  295 

290 

0010H 

4 

QLDFILENAMEPTR 

POINTER  PARAMETER  AUTOMATIC 

114 
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292  295 


773 

WJjWI 

1  ORRTTR 

BYTE 

781  786  788  790  792  813 

311 

0006H 

1  ORflTTRBYTE 

BYTE  PflRAHETER  AUTOMATIC 

312  318 

150 

0072H 

1  PI 

BYTE 

152  163 

133 

006FH 

1  PI 

BYTE 

134  145 

ia 

08SCH 

1  PI 

BYTE 

122  125  128 

104 

0869H 

1  PI 

BYTE 

105  116 

158 

0873H 

1  P5 

BYTE 

156  160  163 

133 

8078H 

1  P5 

BYTE 

138  142  145 

121 

006DH 

1  P5 

BYTE 

123  125 

104 

006RH 

1  P5 

BYTE 

109  113  116 

150 

0074H 

1  P6 

BYTE 

157  161  163 

133 

0071H 

1  P6 

BYTE 

139  143  145 

121 

006EH 

1  P6 

BYTE 

124  125 

104 

0868H 

1  P6 

BYTE 

110  114  116 

815 

1E84H 

31  PflCKOflTfl 

PROCEDURE  BYTE  STACK=8010H 

842  868  861  862  863  864 

868 

1FD1H 

PROCESS 

LABEL 

856  858 

537 

003EH 

2  PTR 

WORD 

546  554  558  567 

453 

0036H 

2  PTR 

WORD 

884  887  888 


584  518  514  5 22 
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PL7N-86  COMPILER 

524  14C3H 

715  lflFlH 
686  1A53H 

825  eeeeH 

824  0097H 

298  0AMH 

746  1C24H 

986  089EH 

526  008BH 

QA£  OQQIUJ 

7w  OwWi 

526  088AH 

52  8888H 

52  eeeeH 

167  8884H 

149  8886H 

132  8886H 

102  8886M 

wJjjM 


8866  DISK  MANAGEMENT  SYSTEM 
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441  READ 

82  READORIVER 
158  READNRITEPARIN 

128  REC 

1  RECFOUND 

288  RENAME 

158  RENAMEDRIVER 


1  SECT 

1  SECTOR 

1  SECTOR 

1  SECTOR 

1  SECTOR 

1  SECTORCNT 


PROCEDURE  STACK=0042H 
718 

PROCEDURE  PUBLIC  STACK=8846H 

PROCEDURE  STACK=8812H 
717  725 

BYTE  BASED(TARGETPOINTER)  ARRAV(128) 

842  868  861  862  863  864  878  877  878  883  884  887 

BYTE 

831  838  857  896 

PROCEDURE  STACK=0846H 
759 

PROCEDURE  PUBLIC  S7ACK=804AH 


ROR 

BUILTIN 

175 

1 

RSECTOR 

BYTE 

921 

922 

1 

RSECTOR 

BYTE 

553 

558 

563 

1 

RTRACK 

BYTE 

928 

922 

1 

RTRACK 

BYTE 

552 

558 

563 

1 

SECT 

BYTE  MEMBER(LINK2) 

219 

224 

231  221 

BYTE  MEMBER(LIIKl) 

347  253  428  434  552  560  921 

BYTE  PARAMETER  AUTOMATIC 
168  178 

BYTE  PARAMETER  AUTOMATIC 
158  163 

BYTE  PARAMETER  AUTOMATIC 
133  145 

BYTE  PARAMETER  AUTOMATIC 
104  116 

BYTE 

913  923  924 

UORD 

U6 


537  803AH  2  SECTORCNT 


fVW-96  COMPILER  88*:  visn  MfcAGtNENT  SYSTEM 
DRIVER  unfits 


542  555  556 


57 

0052H 

1 

SECTQRNUM6ER 

BYTE 

201  215  224  231 

45 

0002H 

2 

SEG 

WORD  HEM8ER(ARG1> 

888 

67 

0002H 

2 

SEG 

WORD  MEHBER(TPNTR) 

521  565  848  848  851 

66 

0002H 

2 

SEG 

WORD  NEMBERIDPNTR) 

520  564  846  930 

855 

1FB4H 

SETB 

BUILTIN 

519  933 

SETPARAMETERS 

LABEL 

830 

188 

001AH 

2 

"i-  rTC0UNT 

WORD 

195  201  202 

249 

0028H 

2 

SHIFTS 

HURD 

254 

189 

001CH 

2 

SHIFTS 

WORD 

194  195 

169 

0014H 

2 

SHIFTS 

HORD 

172  174 

SHL 

BUILTIN 

100  817 

9ft 

BUILTIN 

198  257 

34 

UWUI 

SIOBLANKS 

PROCEDURE  EXTERNALS)  STACK=0000H 

1005  1011  1015 

37 

QfWVMI 

uwun 

SIOCRLF 

PROCEDURE  EXTERNALS)  STACK=8000H 

31 

/VWMI 

wwn 

SIOGETADDR 

PROCEDURE  EXTERNAL(ll)  STACK=0000H 

27 

wiwn 

SIOGETBYTE 

PROCEDURE  BYTE  EXTERNALS)  STACK=0000H 

19 

AOQQU 

WUWI 

SIOGETCHAR 

PROCEDURE  EXTERNALS)  STACK=0000H 

182  388  390  477  479  578  580  588 
675  688  795  887 

583 

16A1H 

195 

SIOGETDISKDRIVE 

PROCEDURE  BYTE  STACK=000EH 

689  734  748  750  765  777  908 
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600  621  646  657 


686  1764H  751  SIOGETFILENAME 


PROCEDURE  5TACK=000EH 
690  735  741  751  756  766  778  909 
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PL/H-86  COMPILER 

577  1681H 

29  0000H 

24  0000H 

39  0008H 

10  eeeeH 
7  0008H 

16  eeeeH 

13  0000H 

21  0000H 
534  0006H 

450  8006H 

57  0000H 

831  1EC9H 

68  888EH 

16  0888H 

41  0088H 
67  800AH 

689  0O8EH 


3066  MSI-.  MANAGEMENT  SVSTEM 
DRIVER  ROUTINES 


32  SIOGETLEADBlANKS 


PROCEDURE  STACK=0008H 

585  697  706  709  784  945  949  957  960  976  979 


SIOGETMORD 


PROCEDURE  UORD  EXTERNAL(10>  STACK*0880H 
698  707 


SIOHEX 


SIONEULINE 


PROCEDURE  BYTE  EXTERNALS)  STACK*«00H 
594  817  948 

PROCEDURE  EXTERNRL(14)  STACK=8000H 

384  307  322  357  360  378  386  440  443  446  467  475  527  530 

570  573  602  682  687  712  719  721  728  732  748  763  775  900 

936  986  990  991  1025  1033 


SIOOUTBYTE  PROCEDURE  EXTERNALS)  STACK=8000H 

SIOOUTCHRR  PROCEDURE  EXTERNALS)  STflCK=8080H 

688  733  749  764  776  1001  1003  1007  1809  1017  1019  1021  1023 


SIOOUTSTRING 

SIOOUTHQRD 

SIOVALIDHEX 
2  STflDD 

2  STflDD 

2  STflDD 

START 

4  STflRTPOINTER 


PROCEDURE  EXTERNflL(S)  STfiCX=0000H 

89  305  308  323  358  361  377  381  385  387  441  444  447  466 

470  474  476  528  531  571  574  603  683  716  720  724  727  731 

747  762  774  901  907  937  944  987  989  1029  1032 

PROCEDURE  EXTERNALS)  STACK=8800H 
1012  1031 

PROCEDURE  EXTERNAL'?)  STACK=0008H 

WORD  PARAMETER  flUTOMftTIC 
537  543  546 

WORD  PflRflMETER  AUTOMATIC 
453  456  457  504 

UORD 

693  690  718  726 

LABEL 

829 

POINTER 

68 


4  STRPTR 


POINTER  PARAMETER 
17 


SUPPRESS8LANK5 
4  TARGETPOINTER 


1  TEST1 


PROCEDURE  EXTERNALS)  STACK=0080H 
POINTER 

67  524  568  825  842  850  868  861  862  863  864  870  877  878 

883  884  887  888 

BYTE 

636  639  641  642  665  668  670  671 

118 
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364 

000EH 

1  TODRIVE 

BYTE  PARAMETER  AUTOMATIC 

365  374  398  399  465  408 

416 

419 

426 

429 

364 

0006H 

4  TQFILEEXTPTR 

POINTER  PARAMETER  AUTOMATIC 

366  374  399  418 

364 

000AH 

4  TQFILENAHEPTR 

POINTER  PARAMETER  AUTOMATIC 

366  374  399  417 

367 

0082H 

1  TGLINKSECT 

BYTE 

422  426  436  437 

367 

0081H 

1  TXINKTRK 

BYTE 

423  426 

• 

943 

vunii 

2  TOTALSECTORS 

MORD 

1030  1031 

67 

flflftflU 

wm 

4  TPNTR 

STRUCTURE  AT 

521  523  565  567  840  841 

(US 

849 

851 

852 

167 

0006H 

1  TRACK 

BYTE  PARAMETER  AUTOMATIC 

168  170 

149 

flMMU 

wwn 

1  TRACK 

BYTE  PARAMETER  AUTOMATIC 

150  163 

132 

0088H 

1  TRACK 

BYTE  PARAMETER  AUTOMATIC 

133  145 

57 

0053H 

1  TRACKNUMBER 

BYTE 

282  216  223  238 

942 

2470H 

TRANSFER 

LABEL 

953  964  971  963  986 

370 

0EC0H 

TRANSFER 

LABEL 

373  406 

• 

53 

0001H 

1  TRK 

BYTE  HEM8ER(LINK2) 

218  223  238  236  239  241 

429 

437 

514 

517 

52 

0001H 

1  TRK 

BYTE  MENBER(LINKl) 

347  352  428  435  552  561 

920 

56 

TRUE 

LITERALLY 

217  343  424  507  549  783 

917 

820 

0095H 

1  TYPE 

BYTE 

863  865  866 

43 

CkMiki 

WWW! 

USERIOGETCHAR 

PROCEDURE  EXTERNALS)  STACK*0000H 

13  0800H  2  U 


610  612 

WORD  PARAMETER 

14 


..to* 


PL/M-86  COMPILER  8086  DISK  HftNPBjtHtNT  SVSTEM 
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459 

1155H 

883  WRITE 

PROCEDURE  STACK*0050H 

726 

723 

1B43H 

77  WITEDRIVER 

PROCEDURE  PUBLIC  STACK=0054H 

71 

0016H 

1  X0 

BVTE  PARAMETER  AUTOMATIC 

72  73 

95 

0068H 

1  XI 

BVTE 

98  99  100  101 

71 

0014H 

1  XI 

\ 

BVTE  PARAMETER  AUTOMATIC 

72  74 

71 

0H2H 

1  X2 

BVTE  PARAMETER  AUTOMATIC 

72  75 

71 

0010H 

1  X3 

BVTE  PARAMETER  AUTOMATIC 

72  76 

71 

000EH 

1  X4 

BVTE  PARAMETER  AUTOMATIC 

72  77 

71 

000CH 

1  X5 

BVTE  PARAMETER  AUTOMATIC 

72  78 

71 

flaanu 

ocvnri 

1  X6 

BVTE  PARAMETER  AUTOMATIC 

72  79 

71 

QflQQU 

WUon 

1  X7 

BVTE  PARAMETER  AUTOMATIC 

72  80 

71 

wron 

1  X8 

BVTE  PARAMETER  AUTOMATIC 

72  81 

71 

OtMUU 

wWi 

1  X9 

BVTE  PARAMETER  AUTOMATIC 

72  82 


HOOULE  INFORMATION: 

CODE  AREA  SIZE  *  2722H  180180 
CONSTANT  AREA  SIZE  =  08060  00 

VARIABLE  AREA  SIZE  =  00A5H  1650 

MAXIMUM  STACK  SIZE  =  005CH  920 

1362  LINES  READ 
0  PROGRAM  ERRQR(S> 


END  OF  PL/M-86  COMPILATION 


III.  DISK86:  THE  ASSEMBLY  LANGUAGE  SYSTEM  INTERFACE 


The  critical  nature  of  the  tine  of  the  software  inter¬ 
face  to  WD1791  Disk  controller  implied  the  absolute  necessi¬ 
ty  that  certain  areas  of  the  software  interface  be  written 
in  the  8086  Assembly  Language.  The  original  designers  of 
this  software/hardware  interface  were  Lt  Mike  Baumgartner 
and  Lt  Dan  McGrath.  They  originally  tested  the  hardware 
software  interface  using  a  Z-80  based  system  running  at 
2MHz.  The  assembly  language  software  was  then  converted 
from  ASM80  source  code  to  ASM86  source  code  using  the  8086 
utility  program  called  CONV86.  Some  minor  modification  and 
enhancement  followed  this  conversion  with  the  final  program 
being  debugged  by  Captain  J.  Pollard. 

The  means  of  interface  between  the  HOL  programming  in 
DOS86  and  DISK86  is  the  IOPB  (input  Output  Parameter  Block) . 
The  IOPB  used  is  patterned  after  that  used  in  the  MDS-800 
system  to  allow  for  the  possible  eventual  applicaton  of  pro¬ 
grams  orglnally  written  in  8080  code  for  the  MDS-800.  Table 
5  shows  the  generic  content  of  the  IOPB  as  it  relates  to  the 
USAFA/8086. 


TABLE  5.  ZOPB  DESCRIPTION  FOR  USAFA/8086 


WORD  NAME 


USAGE  IN  USAFA/8086 


0  IOPBO 
1  IOPB1 


2  IOPB2 

3  IOPB3 

4  IOPB4 

5  IOPB5  "l 

6  IOPB6  J 

7  IOPB7 

8  IOPB8  'l 

9  IOPB9  j 


Channel  Word.  Normallya00H. 

Disk  Command  Word.  Drive  #  in  bits  4  and  5. 
Operation  Code  in  Bits  2,  1,  and  0. 

CODE  OPERATION 

001  Seek 

Oil  Restore 

100  Read 

101  Verify 

110  Write 

111  Write  Deleted  Data 

Codes  000  and  010  are  invalid. 

Number  of  Sectors  involved  in  this 
operation.  (Normally»0lH) . 

Track  Number  (0£tof76io) 

Sector  Number  (lltoi26io) 

Low  and  High  halves  of  the  starting 
address  of  any  data  transfer 

IOPB  block  # 

Low  and  high  halves  of  the  successor  IOPB 
if  applicable  (Channel  word«04H) 


A  high  order  flow  diagram  for  DISK86  is  shown  in  Figure  17. 
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The  READ  and  WRITE  routines  contain  extremely  critical 
timing  loops  which  should  not  be  disturbed  by  any  user 
without  first  considering  the  impact  of  his  change.  The 
DISK86  software  sets  error  flags  based  conditions  found  dur¬ 
ing  disk  operations.  These  are  delineated  in  Table  6. 

TABLE  6.  DISK  ERROR  WORD  CODES 


WORD 

ERROR  CODE 

ERROR 

FTERR(0002F) 

01 

Attempt  to  Read  Deleted  Data 

02 

Sector  Cannot  be  Written 

04 

Seek  Error  Sects  Hot  Found 

08 

Bad  CRC 

10 

Data  Lost  During  Reads  Write 

DERR(00035H) 

08 

Sector  Address  >  261Q 

10 

Not  Used 

20 

Disk  write  Protected 

40 

Not  Used 

80 

Disk  Not  Ready 

124 


The  DISK86  Module  uses  a  large  number  of  dedicated  abso¬ 
lute  memory  locations  These  are  indicated  in  Table  7. 

TABLE  7.  ABSOLUTE  MEMORY  ALLOCATION  DISKS 6 


LOCATION 

NAME 

USAGE 

00020- 

00029 

IOPB 

A  COPY  OP  THE  USER  IOPB 

0002A 

SWSV 

DISK  CONTROLLER  STATUS 

0002B 

BCRC 

#OF  BAD  CRC'S  ENCOUNTERED 

0002C 

PRST 

#OP  TIMES  CONTROLLER  WAS  RESET 
BY  SOFTWARE 

0002D 

LOSTD 

*OF  TIMES  DATA  WAS  LOST  IN 
TRANSFER 

0002E 

PRNF 

#OF  TIMES  A  RECORD  WAS  NOT 
POUND 

0002P 

PTERR 

ERROR  INDICATOR  SEE  TABLE  5 

00030 

DRNBR 

CURRENT  DRIVE  NUMBER 

00031 

DROTR 

DRIVE  0'S  CURRENT  TRACK 

00032 

DR1TR 

DRIVE  l'S  CURRENT  TRACK 

00033 

DR2TR 

DRIVE  2'S  CURRENT  TRACK 

00034 

DR3TR 

DRIVE  3'S  CURRENT  TRACK 

00035 

DERR 

ERROR  INDICATOR  SEE  TABLE  5 

00036 

IOPB 

ADDRESS  OF  USER'S  IOPB 

00037 

ADRS 

00038 

BITBU 

THE  PROVERBIAL  BIT  BUCKET 

copy  of  the 

commented 

DISK86  software  follows. 
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ISIS-!!  wCS-'5  I'"’;'.!"  ,c  *j  "oiL  it1.*  'VavLE  DISK 
OBJECT  MODULE  ^ ' P  In  *1  08.* 

flgSEW.EP  IfiVOi'EC  57  -2;i.<G  ?i  DISK  NS6 


LOC  OBJ 


l;Nl  SOURCE 


CGROOP  *UbP  ASMCOOE  coot  CONST.  ORTfl#  STACK#  memory 
DGROuP  GPOuP  ASMCOOE,  C0C€.  CONST,  DATA#  STOCK, memory 
ASSUME  DS  DGRGUP,  CS  CGROUP,  SS :  DGROUP 
CODE  SEGMENT  MORE'  PUBLIC  'CODE¬ 
CODE  ENDS 

CONST  SEGnENT  WORD  PUBLIC  CONST'  • 

CONST  ENDS 

DflTft  SEGMENT  HOP1)  PUBLIC  'DATA' 

DATA  ENDS 

STOCK  SEGMENT  WORD  STACK  STOCK' 

STACK-BASE  LABEL  6VTE 
STOCK  ENDS 

MEMORY  SEGMENT  WOFD  MEMORY  'MEMORY' 

memory.  label  bvte 

MEMORY  ENOS 
OeS-0 .  SEGMENT  BVTE 
M  ■  LAPEL  BVTE 
ABSj3  ENDS 
ASHCODE  SEQUENT  BVTE 

,♦*+  DISK  ***  PERFORMS  ALl  DISKETTE  OPERATIONS  EXCEPT  FORMAT. 

#  PARAMETERS  IOPB  STARTING  ADDRESS  IN  EXTERNAL  IOPB 

#  PROGRAMMER:  DAN  MCGRATH.  MAY  1979 

#  MODIFIED  JOE  POLLARD*  OCT  79 

;  .  LABEL  DEFINITIONS  : : : 

I0P30  EQO  m2 Oh  # 

TOPBl  EGO  00O21H  ; 

ICPB2  EQU  00022H  * 

I0P82  EQU  096221  ;  RESERVED  MEMORY  STORAGE 

I0P34  EOb  09024H  ;  FOR:  INPOT/OUTPUT 

I0PB5  Ebb  O0025A  *  PARAMETER  BlOCK 

IGPB6  EGl  0062EH  i 

IOPB7  EOb  O0O27H  , 

I0P38  EOU  80O28H 

I0PB9  EQO  00929H  ; 

SWSV  EOU  O002AH  ;  TEMP  STORAGE  OF  STATUS  WORD 

BCR*:  EQL'  08626H  #  COUNT  OF  BAD  REDUNDANCV  DECKS 

PAST  EC u  O0O2CH  ;  COUNT  OF  CONTROLLER  RESETS 


SWSV  EOU  O002AH  ;  TEMP  STORAGE  OF  STATUS  WORD 

BCR*:  EOU  08626H  #  COUNT  OF  BAD  REDUNDANCV  DECKS 

PAST  ECu  O0O2CH  ;  COUNT  OF  CONTROLLER  RESETS 

LOSTD  EOU  0062OH  ,  NUMBER  TIMES  DATA  LOST  IN  TRANSFER 

PRNf  EQU  O092EH  #  NUMBER  TIMES  RECORO  NOT  FOUND 

FTERR  EQO  0802FA  ,  FATAL  ERROR  MESSAGE  WORD 

DRNBR  £30  O0028H  ,  NUMBER  OF  DRIVE  CURRENTLV  ENABLED 

DROTR  EOU  00021H  '  ,  TRACK  LOCATION  OF  DRIVE  0 

DR1TR  EOU  909S2H  *  TRACK  LOCATION  OF  DRIVE  1 

DA2TR  EOU  000S2«i  ;  TRAuK  LOCATION  OF  DRIVE  2 

0R2TR  EOU  00024H  #  TRACK  LOCATION  OF  DRIVE  2 

DERR  EOb  O0025H  •  DISK.  EAROA  BVTE 

I0P8C  EQ>J  00626H  #  LOCATION  36  A»  27  CONTAINS  IOPB 

BITEb  EOb  00£C9h  #  BIT  BUCKET  LOCATION 

•  I/O  PORT  DEFINITIONS 


PAGE  2 


LOC  OBJ 

List 

00C8 

S~hRu 

m  0C8H  i  CONTROLLER  status  register 

eecft 

5i 

TRKRG 

ECS.'  0CAH  ,  CONTROLLER  TRACK  REGISTER 

09CC 

52 

5ECRG 

EGO  OCCrl  .•  CONTROLLER  SECTOR  REGISTER 

00CE 

53 

datrg 

EGU  0CEH  ;  CONTROLLER  DATA  REGISTER 

00C3 

54 

COMRu 

E00  3C8H  ,  CONTROLLER  COMMAND  REGISTER 

90C4 

55 

CHR5T 

EQU  0C4H  ,  CONTROLLER  RESET 

90C8 

DRSLE 

EGO  OC0H  ;  DRIVE  SELECT  PORT 

0002 

57 

mm 

EGO  0C2H  ,  HANDSHAKE  SIGNAL  TO  CONTROLLER 

<vwu> 

WWW 

58 

DISK 

PftOC  FA*  ; 

59 

60 

PUBLIC  DISK  } 

mm  iopb  m> 

61 

PUBLIC  FURR 

62 

PUBLIC  DERR 

AOfiQ  fV 
ww.1 

63 

PUSH  ES 

0601  IE 

64 

PUSH  DS 

0602  50 

65 

PUSH  AX 

0603  51 

66 

PUSH  CX 

0004  52 

67 

PUSH  DX 

0005  53 

68 

PUSH  BX 

iwv 

UOTTO  %ro 

69 

PUSH  SI 

0007  57 

70 

PUSH  DI 

flflflrt  nniwa 
ww  OyWW 

71 

MOV  BX/0000H 

0060  8EDB 

72 

m  DS;  3X 

0060  8EC3 

73 

MOV  ES,6X 

000F  8B1E3600 

74 

MOV  fabS.  WW  PTR  26H 

0613  88CB 

75 

Ef4TRl 

ffflV  CX.*  BX 

0015  268A870080 

R 

76 

HQV  ftL,ES:HCBX] 

0010  2402 

77 

AND  AL02H 

channel  word 

001C  7403 

78 

JZ  SHORT  L01 

IF  ZERO..  CONTINUE 

001E  E9F500 

79 

JMP  SKIP 

ELSE,  SKIP  CURRENT  IOPB 

0021  002000 

88 

L01: 

MOV  BX,  IOP80 

SET  DESTINATION  PTR 

0624  0200 

81 

NOV  DbQrttf 

SET  COUNTER  (SRC  PTR=CX> 

82 

SAVE  IOPB  IN  RESERVED  HEN 

0026  8709 

33 

STP8: 

XCHG  bsocx 

SWITCH  POINTERS 

0028  2680870006 

R 

84 

MOV  ALES:MCBX] 

;  GET  A  BVTE  FROM. SRC  IOPB 

0020  87D9 

85 

XCHG  BX»CX 

SWITCH  AGAIN 

002F  2688870090 

R 

36 

MOV  ES:N£BX1  AL 

,  STORE  IN  DEST  IOPB 

0034  42 

37 

INC  BX 

I  NCR  DEST  PTR 

0035  41 

33 

INC  CX 

i  I  NCR  SRC  PTR 

0026  FECA 

89 

DEC  DL 

.  DECR  COUNTER 

0038  75EC 

90 

JNZ  STPB;  CHECK  FOR  ADDA  ERROR 

003A  268A1E2200 

R 

91 

NOV  BLES.HIIOPBZ] 

,  ADC'  NUMBER  OF  RECORDS 

002F  26882400 

R 

92 

NOV  AL.ES  NCI0P84] 

}  AND  SECTOR  AODR 

8042  0203 

93 

ADO  ALBL 

0045  3C1B 

94 

CMP  AL.27D 

CHECK  FOR  SUN>26 

0047  7E07 

95 

JLE  SHORT  SELDR 

0049  260606358008 

R 

96 

NOV  ES:M£DtRRL06H 

;  IF  >26,  AL=ADDRESS 

804F  CP 

97 

RET 

ERROR,  ABORT. 

93 

SELECT  DRIVE  AW)  SET 

99 

UP  TRACK  REGISTER 

0050  26002100 

P 

103 

SELDR 

MOV  Al.ES. MCIOPBl]  ' 

;l£T  DISKETTE  INSTR 

0054  2420 

101 

AND  AL,38H 

,  AND  MASK  FOR  DRV  NBR 

0056  26023000 

9 

182 

NOV  ES.MtDRNBRlAL 

i  SAVE  DRV  NeR  IN  MEN 

0050  2000 

193 

CNF  AL,00h 

DRIVE  »■ 

0050  7509 

104 

JNZ  SHORT  DRlO 

NO.  JUMP 

127 

‘trs-Pt--  a«£i«o,  j, 
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LOC  OBJ 

l'NE 

005E  mi 

105 

flu  v 

HL.  9iH 

VES.  RL=ORIVE  0  SEL  MASK 

0060  269filE3100 

R 

186 

MOV 

BL-ESrttDRBTR] 

i  BL=mST  TRRCK  ROOR 

0065  E821 

107 

JHP 

SHORT  DRSEl 

006?  5:10 

188 

DR10 :  CMP 

AL,  10H 

DRIVE  1? 

0969  7509 

109 

JNZ 

SHORT  DR2D  1 

NO-  JUMP 

006B  6002 

110 

MOv 

AL,  62H  1 

AL=DPIVE  1  MASK 

0060  268A1E2200 

R 

111 

nov 

3L>  ES.FttDRITft  j 

;  BiXAST  TRACK  ADDR 

0072  EB14 

112 

JMP 

SHORT  DRSEL 

0074  2C29 

113 

DR2Q:  CMP 

flLttSH 

CHECK  FOR  DRIVE  2 

0076  7509 

114 

JNZ 

SHORT  DR26 

NO,  JUMP 

0078  B004 

115 

MOV 

0L.04H 

VES.  RL=ORV  2  MASK  - 

0070  268010200 

R 

116 

MOV 

BLESMIDR2TR] 

;  BL=LRST  TRRCK  ROOR 

007F  EB07 

117 

JMP 

SHORT  DRSEL 

0081  B003 

118 

DR30:  MOV 

AL08H 

fiSSJJrtE  DRV  2,  AL=MASK 

0082  26801E3400 

R 

119 

MOV 

BLES:(tt0R2TR] 

;  BL=LRST  TRRCK.  DRV  2 

0088  E6C0 

120 

DRSEl  OUT 

DRSLE,  0L 

OUTPUT  DRV  SELECT  HRSK 

0080  80C3 

121 

MOV 

0L,8l 

008C  F6D0 

122 

NOT 

0L 

m 

008E  E6C0 

123 

OUT 

TRpRG.  HL 

LORD  TRRCK  REGISTER 

124 

CHECK  FOR  DRIVE  REflDV 

0890  E4C3 

125 

IN 

AL.STRRG 

RERD  STATUS  WORD 

0092  F6O0 

126 

NOT 

RL 

##♦ 

0894  2480 

127 

AND 

0L8OH 

CHECK  REflDV  BIT 

0096  7487 

128 

JZ 

SHORT  CLRER 

BRANCH  IF  REflDV 

0098  26C606250080 

R 

129 

MOV 

ES  HCDERR180H 

;  ELSE.  AL=ERROR  INDICATION 

009E  CB 

130 

RET 

ABORT. 

131 

CLEAR  ERROR  RECORDS 

009F  B206 

132 

CLRER:  MOV 

DL/06H 

ZERO  OUT  THE 

0001  BB2000 

133 

m 

BX,  5MSV 

SIX  RESERVED  HEN 

QCCLA  DMA 

OCTrf  DOW 

134 

MOV 

0L80H 

LOCATIONS 

0006  2688870000 

R 

135 

OR:  MOV 

ES:I*BX],AL 

;  FROH  SWSV 

0008  42 

136 

INC 

ex 

TOFTERR 

000C  FEC0 

137 

DEC 

OL 

000E  75F6 

138 

JNZ 

CLR 

0088  26022500 

R 

139 

MOV 

ES:i«D£RRlAL 

CLEAR  DERR 

140 

DETERMINE  OPERATION  AND  VECTOR 

141 

TO  SUBROUTINE 

9084  26002100 

R 

142 

OPER :  MOV4 

flLES.MCIOPBlj 

DETERMINE  OPERATION: : 

0688  2407 

143 

AND 

AL.07H 

MASK  DISK  INSTR  FOR  OP  CODE 

6080  2C81 

144 

SUB 

AL.01H 

OP  COPE  =001?  (SEEK) 

00BC  7505 

145 

JNZ 

SHORT  0P2 

NO.  CHECK  011 

608E  E80080 

14b 

CALL 

SEEK 

VES.  CflLL  SEEK  ROUTINE 

00C1  EB48 

147 

JMP 

SHORT  THRU 

THEN  GO  TO  END 

00C2  2C92 

148 

0P3:  sue 

RL.02H 

OP  CODE  =011?  (RESTORE) 

00T5  7514 

149 

JNZ 

SHORT  0P4 

NO.  CHECK  100 

00T?  8008 

150 

MOV 

AL.06H 

VES,  LORD  COMMAND  REG 

00C9  F6D0 

151 

NOT 

RL 

m 

00C8  E6C8 

152 

OUT 

COMRG.AL 

WITH  RESTORE  INSTR 

00CO  E4C3 

153 

Rx:  IN 

AL.STARG 

WRIT 

00CF  2491 

154 

AND 

AL,01H 

FORBUSV 

9001  75F0 

155 

JNZ 

R1 

BIT  TO  GO  HIGH 

0002  E4C8 

156 

R2.  IN 

RL.STRRG 

AND 

0005  2401 

157 

AND 

RL.dlH 

BACK 

0007  74F0 

153 

JZ 

R2 

LON 

0009  E822 

159 

JMP 

SHORT  THRU 

AND  00  TO  END 

128 
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LX 

05  T 

i-Iht 

iOWKE 

000? 

2001 

168 

0P4:  Su6 

AL01H 

;  OP  CODE  *108?  (REflD) 

0000 

7565 

161 

JNZ 

SHORT  OPS 

;  NO,  CHECK  101 

00OF 

E31201 

162 

CALL 

READ 

;  VES,  CALL  RE0D  ROUTIfC 

00C2 

EB2A 

163 

JMP 

SHORT  THRU 

i  THEN  GO  TO  END 

00E4 

2C01 

164 

0P5:  SUB 

AL01H 

;  OP  CODE  =101?  (VERIFY  CRC) 

08E6 

7505 

165 

JNZ 

SHORT  0P6 

;  NO,  CHECK  110 

00E8 

E82502 

166 

CALL 

VFRFY 

>  VES,  CALL  VERIFY  ROUTIfC 

08EB 

©21 

167 

JMP 

SHORT  THRU 

i  THEN  GO  TO  END 

00© 

2001 

168 

0P6  sue 

flL  OlH 

i  OP  CODE  =110?  (URITE) 

08£F 

7500 

169 

JNZ 

SHORT  0P7 

i  NO,  CfCCK  111 

00F1 

E4C8 

178 

WR:  IN 

HLSTftRG 

i  CHECK  WRITE  PROTECT 

00F2 

F6O0 

171 

NOT 

AL 

ittt 

00F5 

2440 

172 

AND 

AL,40H 

i  UPROT=L  DO  NOT  WRITE 

00F7 

750E 

177 

JNZ 

SHORT  NOWR 

i  ICROT=0,  CALL  URITE 

00F9 

E80E02 

174 

CALL 

WRITE 

>  THEN  GO  TO  END 

00FC 

EB10 

175 

JMP 

SHORT  THRU 

/ 

00FE 

2001 

176 

0P7:  SUB 

RL01H 

i  OP  C0DE=111?  (UR  DEL  DATA) 

0100 

7500 

177 

JNZ 

short  THRU 

i  NO,  GO  TO  END 

0102 

Bbfii 

178 

MOV 

DH.0A1H 

i  VES,  D=HRITE  DELET©  INSTR 

0104 

E90302 

179 

JNP 

WRITE 

i  GO  AND  CALL  URITE 

180 

0107 

26C606250020 

R 

181 

NOWR  MOV 

ES:MEDERRL20U 

;  AL=WRT  PROT  INDIC 

01© 

CB 

182 

RET 

;  ABORT. 

183 

-COMMON  RETURN  PT  FOR  ALL  OPS 

010E 

26A02F00 

R 

184 

THRU.  MOV 

ALESItfFTERR) 

;  GET  FATAL  ERROR  MESSAGE 

0112 

24FF 

185 

AND 

0L.0FFH  i 

CHECK  FOR  ERRORS 

0114 

7508 

186 

JNZ 

SHORT  CONC  > 

187 

AT  THIS  POINT,  IT  IS  ftSSWCD  THAT 

188 

0  SUCCESSFUL  OPERATION  HAS  OCURR© 

0116 

26082000 

R 

189 

SKIP:  MOV 

ALESNUOPBO] 

i  GET  CHANNEL  WORD  AND 

011fi 

2404 

198 

AND 

HL7  t 

CHECK  SUCCESSOR  BIT 

011C 

752F 

191 

JNZ 

SHORT  R©T  ; 

IF  ZERO,  CONCLUDE  OPERATION: 

011E 

26002008 

R 

192 

CONC.  MOV 

HLESIf  0RN8R] 

i  RETRIEVE  DRIVE  NUMBER 

0122 

2090 

193 

CMP 

0L00H 

,  DRIVE  0? 

0124 

7500 

194 

JNZ 

SHORT  DRVi 

i  NO,  JUMP 

0126 

E4C0 

195 

IN 

AL.TRKRG 

i  READ  TRACK  REGISTER 

0128 

F6D0 

196 

NOT 

0L 

M* 

0120 

26022100 

R 

197 

MOV 

ES:MtDR0TRLAL 

;  SAVE 

012E 

E824 

198 

JMP 

SHORT  FINSH 

0120 

2010 

199 

DRYi  CMP 

0L.10H 

i  DRIVE  1? 

0132 

7500 

280 

JNZ 

SHORT  DRV2 

i  NO,  JUMP 

0124 

E4C0 

201 

IN 

AL.TRKRG 

;  ELSE  READ  TRACK  REG 

0126 

F6D0 

202 

NOT 

0L 

,  *«« 

0128 

26022200 

R 

293 

MOV 

ES:«DR1TR],AL 

i  SAVE 

912C 

©16 

204 

JMP 

SHORT  FINSH 

012E 

2020 

285 

DRV2.  CMP 

0L«20H 

;  DRIVE  2? 

0140 

7500 

206 

JNZ 

SHORT  DRV2 

i  NO,  JUMP 

0142 

E<C0 

1  207 

IN 

AL.TRKRG 

i  ELSE,  READ  TRACK 

0144 

F6D0 

208 

NOT 

0L 

;  ### 

0146 

26022200 

R 

299 

MOV 

K:WDR2TRJ,0c 

,  SAVE 

014A 

EB08 

210 

JMP 

SHORT  FINSH 

014C 

E4C0 

211 

DRV3:  IN 

0L.TRKRG 

i  ASSUME  DRIVE  2 

014E 

F6O0 

212 

NOT 

0L 

.i  »«* 

0150 

26022400 

R 

213 

MOV 

ES :  Mt  0R3TR  ],  0L 

i  SAVE  TRACK  NUMBER 

0154 

5F 

214 

FINSH  POP  Oi 

129 
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•OC  OBJ 

LINE 

SOURCE 

0155  5E 

215 

POP  SI 

0156  58 

216 

PGP  BX 

0157  5fl 

217 

pgf  d:  . 

0158  59 

218 

POP  cx 

0159  58 

219 

POP  AX 

015ft  IF 

220 

POP  05 

015B  07 

221 

POP  ES 

015C  CB 

222 

RET 

223 

DISK 

ENDP, 

224 

/CONCLUDE 

0150  884006 

225 

REPT; 

MOV  B&0646H  ; 

0160  E82803 

226 

C8LL  DELRV  ;  DELAY  16  MILLISECONDS  ' 

0163  268B1E2800 

R 

227 

MOV 

BX.UORD  PTR  ES:HtI0PB8J  ;  LORD  BX  HITH  NEXT  I0P8 

0168  E9R8FE 

228 

JMP  ENTR1  /PERFORM  NEXT  OPERATION 

229 

238 

/SUBROUTINE  SEEK  ::: 

231 

;  MOVES  DISK  HERD  TO  TR8CK  SPECIFIED 

232 

;  IN  I0PBI3I 

0168 

233 

SEEK 

PROC  NEAR; 

0168  26803800 

R 

234 

MOV  RL/ES.MCDRNBRJ/GET  CURRENT  DRIVE  NUMBER 

016F  D0E8 

235 

SHR  ALL  ALIGN  8DDRESS 

0171  O0E8 

236 

SHR  8L1; 

0173  P0E8 

237 

SHR  ALL 

0175  O0E3 

'238 

SHR  Rb  1/ 

0177  FEC0 

239 

INC  RL;  ROD  ONE  FOR  H8RDN8RE 

179  0430 

248 

8DD  PL,  mm.  ROD  OFFSET  TO  GET  CURRENT 

8178  B780 

241 

MOV  BH.00H 

0170  88D8 

242 

MOV  BL.HL 

017F  2688870000 

R 

243 

MOV  RL- ES:NCBXL  LORD  CURRENT  TRRCK 

0184  F6D0 

244 

NOT  iL. 

8186  E6C8 

245 

OUT  TRKRG/AL,  UPDATE  TRRCK  REGISTER 

0188  F6D0 

246 

NOT  RL.  RETURN  TO  POSITIVE  LOGIC 

0188  2638862300 

R 

247 

CMP  8L/ES:MCI0P83Ii  COMPARE  TO  DESIRED  TRACK 

018F  7428 

248 

JZ  EXITSK 

0191  26802300 

R 

249 

MOV 

RL/ES.MC10P831  ;GET  TRACK  0DOR  AND 

0195  F6D0 

250 

NOT 

8L  /##♦ 

0197  E6CE 

251 

OUT 

DRTRG/RL  ;  LORD  INTO  ORTA  REG 

0199  B80100 

252 

MOV 

BX/0001H 

019C  E8EE02 

253 

CALL 

DELRV  /  WRIT  18  MICROSECONDS 

019F  B01F 

254 

MOV 

RL/1FH  ;  LORD  SEEK  INSTR 

0181  F6D0 

255 

NOT 

RL  ittlt 

0183  E6C8 

256 

OUT 

COMRG/RL  ;  INTO  COMHflM)  REG 

8185  880180 

257 

MOV 

BX/0001H  ;  SET  DELRV  TIME 

0188  E8E202 

258 

CALL 

DELRV  ;  WRIT  10  MiCROSECS 

259 

; CHECK  FOR  DONE 

0188  E4C8 

260 

ENDSK: 

IN 

RL.STARG  ;  READ  STATUS  REGISTER 

0180  F6O0 

261 

NOT 

RL  ;  ### 

018F  2401 

262 

m 

8L01H  i  CHECK  BUSV  BIT 

0181  75F8 

263 

JNZ 

ENDSK  ;  UNTIL  ZERO 

0103  E4C9 

264 

IN 

AL..S1ARG  /  RERD  STATUS  REG 

81B5  F6D0 

265 

NOT 

RL  >m 

LB7  2410 

266 

m 

RL.  10H  ;  CHECK  SEEK  ERROR  BIT 

0189  7501 

267 

JNZ 

SHORT  L.5 

0188  C3 

268 

EXITSK. 

RET 

01BC 

269 

L.5: 

; IF  ZERO,  RETURN,  ELSE 

s-fff  wr 
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LOC  OBJ 

LINE 

SOURCE 

01BC  682C80 

270 

m 

BX.PRST  ; 

IN  CAS  OF  SEEK  ERROR 

Ns. 

01BF  268A870080 

R 

271 

NOV 

AUES:*BXJ 

;  CHECK  RESET  RECORD 

01C4  3C01 

272 

DIP 

AL.01H  ; 

IF  1  PRIOR  RESET. 

" ! 

01C6  7411 

273 

JZ 

SHORT  REST  ; 

JUMP 

i 

01C8  26FE87O080 

R 

274 

INC 

ESMtBX] 

;  ELSE.  UPDATE  RECORD 

01CD  B8FF 

275 

NOV 

AL0FFH  ) 

SET  MASK. 

01CF  E6C4 

276 

OUT 

CHRST.AL  i 

REST  CONTROLLER. 

01M.  B6-0500 

277 

NOV 

BX.06085H  ; 

ST  DELAY  TIME 

01D4  E 38682 

273 

cm 

DELAY 

;  DELAY  50  MICRO 

01D7  EB92 

279 

JNP 

SEEK 

AND  TRY  AGAIN 

i 

81D9  BB2E80 

288 

REST: 

MOV 

BX.PRNF  ; 

CHECK  REC  NOT  FOUND 

01DC  2688870088 

R 

281 

NOV 

RL,ES:MtBXJ 

01E1  3C02 

282 

CNP 

AL..02H  ; 

2  ERRORS  AFTER  RESET? 

81E3  7408 

283 

JZ 

SHORT  FATAL  ; 

YES.  JUMP 

01E5  26FE870008 

R 

284 

INC 

ES:KBX] 

;  NO,  UPDATE  RECORD, 

01Efl  E97EFF 

285 

JNP 

SEEK  5  ; 

AM)  TRY  AGAIN 

) 

81ED  26C6062F8004 

R 

286 

FATAL: 

NOV 

ES:lf  FTERR104H 

; FATAL  ERROR:  GET  F.E. 

287 

j 

HESSG,  SET  SEEK  ERROR. 

01F3  C3 

288 

RET 

i 

AND  RETURN  TO  DISK 

,  •  * 

289 

SEEK 

EWP; 

290 

291 

; SUBROUTINE  READ  ::: 

1  / 

01F4 

292 

READ 

PROC 

NEAR; 

01F4  E874FF 

293 

crll 

SEEK 

SEEK  TRACK 

01F7  B82280 

294 

NOV 

BX.IGPB2 

ST  ^RECORDS 

01FA  268AAF0000 

R 

295 

NOV 

CH.ESNtBX] 

;  AND  LOAD  INTO  COUNT  CH 

t 

01FF  42 

296 

INC 

ex 

GET  SECTOR 

\ . .  * 

0200  42 

297 

INC 

BX 

ADDRESS  AND 

8281  2688878600 

R 

298 

NOV 

ALES:I1CBX] 

LOAD  INTO 

0206  F6D0 

299 

NOT 

AL 

»*# 

0208  E6CC 

200 

C’JT 

SCRG,  AL 

SCTOR  REGISTER 

020A  8188 

301 

FLAG1: 

NOV 

CL.80H 

COUNT  C  =  #8YTES/SECT 

020C  8884 

302 

NOV 

AL.84H 

LOAD  COMMfWD  REG 

020E  F6D0 

383 

NOT 

AL 

ft## 

1 

304 

MEM  PTR  =  DEST  ADDR 

0210  26861E2500 

R 

305 

,  NOV 

BX.MORD  PTR  ES:KI0PB5] 

i 

0215  B2C8 

386 

NOV 

DL.STARG 

OL*STATUS  PORT 

0217  B402 

307 

NOV 

AH.02H 

AH=STATUS  MASK 

0219  E6C8 

388 

OUT 

COHRG,  AL 

OUTPUT  TO  CONTROLLER  COMMAND 

0218  EC 

309 

RLOOP: 

IN 

AL.  DX 

READ  STATUS 

021C  22C4 

310 

M> 

AL  AH 

UNTIL  DRQ 

021E  75FB 

311 

JNZ 

RLOOP 

;  ACTIVE 

0220  E4CE 

312 

IN 

ALDATRG 

READ  A  BYTE 

* 

0222  F6D0 

313 

NOT 

AL 

M  iLH 

}  WWW 

0224  88870000 

R 

314 

MOV 

DS:M[BX],AL 

i  STORE  AT  DEST  MEM 

0228  42 

315 

INC 

BX 

UPDATE  DEST  PTR 

*  : 

0229  FEC9 

316 

DEC 

CL 

DECR  COUNTER 

8228  75EE 

317 

JNZ 

RLOOP 

CONTINUE  UNTIL  CL=0 

K\ 

318 

;  CHECK  FOR  DONE 

022D  E4C8 

319 

ENDRD: 

IN 

AL.  STARS  ;  READ  STATUS 

'  i 

022F  F6D0 

328 

NOT 

AL 

- 

0231  2401 

321 

AND 

AL.01H  ;  CHECK  8USY  BIT 

u 

0233  75F8 

322 

JNZ 

ENDRD  ;  UNTIL  ZERO 

0235  E4C8 

323 

IN 

flL. stars 

;RtAD  STATUS  REG. 

0237  F6D0 

324 

NOT 

AL 

;*«« 

i 
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1 OC  OB  J 

LINE 

SOURCE 

*239  26A22A06 

R 

325 

MOV 

ES:HtSWSVI,0L  ; 

SAVE  STATUS  WORD 

0230  2408 

326 

AND 

AL.08H  i 

CHECK  CRC  BIT 

023F  7410 

327 

JZ 

SHORT  RNF  ) 

IF  OK,  CHECK  RNF 

0241  B82S80 

323 

CRCC 

MOV 

BXjBCRC 

#GET  CRC  RECORD 

0244  2660870000 

R 

329 

MOV 

AL,ES:MIBX] 

;  CHECK  FOR  MORE  THAN 

0249  2C03 

330 

SUB 

0L.03H  < 

1  THREE  TIMES 

0246  7407 

331 

JZ 

SHORT  CRE  i 

JUMP  IF  3 

0240  2BFE870080 

R 

232 

INC 

E5.NCBX] 

i  aSE  UPOflTE  RECORO 

0252  EBBS 

333 

JMP 

FLflGl  ; 

;  AND  TRV  ANOTHER  REHO 

0254  26C6862F0908 

R 

334 

ORE: 

MOV 

ES:NCFTERR108H 

;  3  BAD  CRC.  S: 

335 

> 

LOAD  FATAL  MESSAGE 

025ft  C3 

336 

RET 

i 

ABORT 

025B  26002800 

R 

337 

RNF: 

MOV 

ALES:HtSNSV] 

;  GET  STATUS 

025F  2410 

328 

AND 

AL10H  i 

!  CHECK  RNF  BIT 

0261  743C 

229 

JZ 

SHORT  CttCID  j 

JUMP  IF  0.  K. 

0263  6B2E00 

240 

MOV 

BX.PRNF 

i  ELSE  GET  RNF  RECORD 

0266  2680870600 

R 

241 

MOV 

0L»ES:NtBXI 

i  HAS  OPERATION 

026B  2C02 

342 

SUB 

PL02H 

i  FAILED  TWICE? 

0260  7468 

343 

JZ 

SHORT  RESTR  i 

YES.  TRY  RESET 

026F  26FE870600 

R 

344 

INC 

ES.MEBX3 

>  NO.  INCR  RNF  REC 

0274  E97DFF 

245 

JMP 

REftO 

AND  TRY  AGAIN 

0277  BB2C00 

246 

RESTR: 

MOV 

BX.PRST  i 

:  RESET  CHECK  RESET  . 

027ft  268^870000 

R 

247 

MOV 

ALES:MCBX],  i 

i  RECORD.  IF  NOT  ZERO, 

027F  2C01 

243 

SUB 

0L01H 

;  SET  FATAL  ERROR 

0281  7412 

249 

JZ 

SHORT  FftTE 

;  MESSAGE,  OTHERWISE 

'3  26FE870000 

R 

350 

INC 

ES.HtBXI 

i  INCR  RESET  RECORD 

-c88  F6O0 

251 

W3T 

flL 

m 

028ft  E6C4 

352 

OUT 

CHRSL0L 

RESET  CONTROLLER 

028C  880500 

253 

MOV 

BX.0005H 

SET  TIME 

828F  E8F881 

354 

CALL 

OElflV 

DELAY  50  MICROSECONDS 

0292  E95FFF 

355 

JMP 

REftO 

AND  TRY  AGAIN 

0295  BB2F00 

356 

F07E: 

NOV 

B&FTERR 

GET  FATAL  MESSG  BYTE 

0288  26C6870000FF 

R 

357 

MOV 

ES:HtBX10FFH 

LOAD  RNF  MESSG  AND 

029E  C3 

'  358 

RET 

RETURN  TO  DISK 

029F  26002080 

R 

359 

CHKLD: 

NOV 

ftLES:HCSUSV] 

CHECK  FOR  LOST  DATA: 

0203  2404 

360 

AND 

AL04H 

CHKLD.  BIT 

0205  741E 

361 

JZ 

SHORT  CHKDD 

NO  L  D  . ,  CHECK  DEL  DATA 

02A7  BB2D00 

362 

NOV 

BX,  LOSTD 

L  D. ,  GET  L  D  RECORD 

020ft  2680870000 

R 

363 

MOV 

0L,ES:HCBX] 

HAS  READ  FAILED  TWICE 

020F  2C02 

364 

SUB 

0L02H 

DUE  TO  LOST  DATA? 

0261  7880 

365 

JS 

SHORT  LOLT 

NO,  JUMP 

02B3  BB2F00 

366 

NOV 

BX.FTERR 

■  VES,  LOAD  FATAL  MESSG 

02B6  26C687090010 

R 

267 

MOV 

ES.NteXUOH 

i  LOST  DATA  MESSG 

02BC  C3 

268 

RET 

j 

s  AND  RETURN  TO  DISK 

0260  26FE870000 

R 

369 

LOLT: 

INC 

ES:WBX] 

;  INCR  LOST  DATA  REC. 

02 C2  E945FF 

370 

JHP 

FLflGl 

AND  TRY  AGAIN 

02C5  26002000 

R 

371 

CHKDD: 

NOV 

ALESrfISNSV] 

CHECK  FOR  DEL  DATA: 

02C9  24 20 

372 

AND 

AL.20H 

CHECK  REC  TYPE  BIT 

02C8  7400 

273 

JZ 

SHORT  REP. 

IF  TYPE  NORMAL  JUMP 

62C0  BB2F00 

274 

MOV 

BX.FTERR 

TVPE=DD,  LOAD  FATAL  ERROR 

0209  26C687000001 

R 

375 

NOV 

ES:HtBXI,01H 

REC.  HITHODICSSG' 

:  C3 

376 

RET 

AND  RETURN 

..J  E4CC 

277 

REP.: 

IN 

AL.SECRG 

NO  ERRORS:  GET  SECTOR  REG 

0209  F6D0 

278 

NOT 

flL 

*** 

02DB  FEC0 

279 

INC 

flL 

INCR  SECTOR 

132 
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E. 

^  LOC  OBJ 

LINE 

SOURCE 

1 !  ''  02DD  F6D0 

m 

NOT 

01 

m  > 

02DF  E6CC 

281 

OUT 

SECRG.AL 

OND  RELOOO 

02E1  FECD 

382 

DEC 

CH 

DECS  (RECORDS 

02E3  7501 

233 

JNZ 

SHORT  1-6 

\  82E5  C3 

284 

RET 

02E6 

385 

L_6: 

RETURN  IF  DONE.  ELSE 

'  02E6  268B1E2500 

R 

386 

MOV 

BX.W0RD  PTR  ES.H  I0PB51 

UPDOTE 

02EB  608880 

387 

MOV 

DX.80H 

DESTINATION 

02EE  03DA 

388 

ADD 

B&DX 

*  f  02F9  DlDE 

389 

RCR 

SLl 

02F2  WD6 

390 

RCL 

SL1 

ADDRESS  BV 

82F4  26891E2500 

R 

391 

MOV 

WOH)  PTR  ES:MU0PB5LBX 

128  8VTES 

■  02F9  B000 

392 

MOV 

OL00H 

CLEAR 

02FB  26A22C00 

R 

393 

MOV 

ES:MIPRSTLflL 

NON-FOTOL 

02FF  26A22D09 

R 

394 

MOV 

ES:WL0STD10L 

ERROR 

r  0303  26A22E00 

R 

395 

MOV 

ES:«PRNFIOL 

RECORDS 

0307  E900FF 

396 

JMP 

FLflGl 

READ  NEXT  SECTOR 

!■ 

397 

REOO  EMOP, 

■ 

398 

399 

SUBROUTINE  WITE  ::: 

030A 

400 

WRITE  PROC 

NEflfc 

030fl  E85EFE 

401 

COLL 

SEEK 

HOVE  TO  DESIRED  TRACK 

0300  B82200 

402 

MOV 

KOIOPB2 

GET  NUMBER  OF  RECORDS 

•  0310  268AAF0000 

R 

493 

MOV 

CH.ES:«BXJ 

COUNT  B=#RECOROS 

<  0315  43 

404 

INC 

8X 

0316  43 

405 

INC 

ex 

0317  2680870000 

R 

406 

MOV 

ftLES;H mj 

LORD  SECTOR  ODOR 

031C  F6D0 

407 

NOT 

OL 

m 

b  931E  E6CC 

408 

OUT 

SECRG.AL 

INTO  SECTOR  REG 

:j  0320  B180 

409 

FLAGW.  NOV 

CL.80H 

COUNTER  C=i28 

H  '  0322  8004 

410 

NOV 

AL.0R4H 

LORD  COMMAND  REG  WITH 

"  0324  F6D0 

411 

NOT 

OL 

«•» 

412 

WRITE  OR  WR.  DEL  DOTH  INSTR 

0326  2688362500 

R 

413 

NOV 

SI. WORD  PTR  ES:«I0PB5] 

;  MEN  PTR  =  SRC  ODOR 

032B  62C8 

414 

MOV 

DL.STARG 

DL=STOTUS  PORT 

0320  B402 

415 

MOV 

OH..02H 

OH=HRSK 

032F  E6C8 

416 

OUT 

COHRG.AL 

CONNOND  TO  CONTROLLER 

0331  8014 

417 

TLOOP:  NOV 

DLDSCSII 

PRIHE  DATA  REGISTER 

0333  F602 

418 

NOT 

01 

8335  E4C8 

419 

WLOQP:  IN 

OL.STORQ 

READ  STATUS 

I  0337  22C4 

420 

ONO 

Ob  OH 

UNTIL  ORQ 

0339  75F0 

421 

JNZ 

WLOQP 

ACTIVE 

!  0338  80C2 

422 

MOV 

OL.OL 

GET  A  BVTE  FROH  SRC  HEN 

;  ■  0330  E6CE 

423 

OUT 

DATRG.AL 

WRITE  TO  DISKETTE 

r?  033F  46 

424 

INC 

SI 

UPDATE  PTR 

,!  0340  FEC9 

425 

DEC 

CL 

DECREHENT  COUNTER 

0342  75E0 

426 

JNZ 

TLOOP 

COAT.  UNTIL  COUNT=0 

"t| 

!■* 

t 

427 

CHECK  FOR  DONE 

V  0344  E4C8 

428 

ENDWR  IN 

OL.STORQ 

READ  STATUS 

0346  F6D0 

429 

NOT 

OL 

ft# 

'  0348  2401 

438 

ONO 

AL01H 

CHECK  8USV  BIT' 

;j  0340  75F8 

431 

JNZ 

ENMR 

UNTIL  ZERO 

j  034C  E4C3 

432 

IN 

OLSTORG 

READ  STATUS  REG 

1  034E  F6O0 

433 

NOT 

OL 

lit 

||  0350  26022080 

R 

434 

nov 

ESMCSHSVLflL 

CHECK  FOR  ERRORS. 

1 

133 

L. 

0254  2410 

435 

AND 

0356  743A 

436 

JZ 

0358  BB2E00 

437 

RECNF: 

HOY 

0356  268A870800 

R 

433 

MOV 

0360  2C82 

439 

SUB 

0362  7407 

440 

JZ 

0364  26FE878000 

R 

441 

INC 

0369  EB9F 

442 

JHP 

036B  BB2C00 

443 

RSET: 

HOY 

036E  268A870080 

R 

444 

MOV 

0273  2C00 

445 

sue 

0375  7511 

446 

JNZ 

0377  26FE870000 

R 

447 

INC 

837C  F6D0 

448 

NOT 

037E  E6C4 

449 

OUT 

0380  6B0500 

450 

MOV 

0383  E88701 

451 

CALL 

8386  EB82 

452 

JMP 

0388  BB2F00 

453 

FTAL: 

MOV 

038B  26C6870000FF 

R 

454 

HOY 

8391  C3 

455 

RET 

0392  26A02A00 

R 

456 

CHLD: 

MOV 

0396  2404 

457 

AND 

0398  741A 

458 

JZ 

039A  26A02D00 

R 

459 

HOV 

039E  2C82 

460 

SUB 

03A0  740A 

461 

JZ 

03R2  B82F08 

462 

HOV 

03A5  26C687000818 

R 

463 

HOV 

03AB  C3 

464 

RET 

03AC  26FE870000 

R 

465 

LSTD: 

INC 

0281  E%CFF 

466 

JHP 

03B4  EB2790 

467 

VERIF. 

JHP 

0367  26A02F00 

R 

468 

HOV 

03%  2482 

469 

AND 

0380  741E 

470 

JZ 

03BF  BB2B00 

471 

HOV 

03C2  268A870600 

R 

472 

HOV 

03C7  2C86 

473 

SUB 

03C9  7488 

474 

JZ 

03CB  26FE870000 

R 

475 

INC 

03D0  E94DFF 

476 

JHP 

03D3  B82F80 

477 

FCRC: 

HOV 

03D6  26C687000002 

R 

478 

HOV 

03DC  C2 

479 

RET 

03DD  E4CC 

480 

NXTR: 

IN 

03DF  F6D0 

481 

NOT 

03E1  FEC8 

432 

INC 

03E3  F6D0 

483 

NOT 

03E5  E6CC 

494 

OUT 

03E7  FECD 

435 

DEC 

03E9  7501 

486 

JNZ 

03EB  C2 

487 

RET 

03EC 

488 

L-7: 

03EC  26881E2580 

R 

489 

HOV 

i  SAVE  SW,  CHECK  RNF 
j  IF  RNF=0,  CHECK  LOST  DATA 
; IF  RNF=i,  GET  RNF 
i  RECORD 
;  THO  FAILURES? 
i  VES,  TRY  RESET 

i  NO,  INCR  RNF  REC 
;  AND  TRY  AGAIN 
;GET  RESET  REC 
;  IF  NOT  0,  SET 
;  FATAL  HESSGi 
;  OTHERWISE. 

;  INCR  RESET  REC 

»### 

i  RESET  CONTROLLER 
i  SET  TINE 

;  DELAY  50  MICROSECONDS 
i  AND  TRY  AGAIN 
i  GET  FATAL  HESSG  BYTE 
i  SET  RNF  NESSG 
;  AND  RETURN 
.OCCK  LOST  DATA: 

,  CHECK  STATUS  WORD 
;  NO  LD  .  VERIFY  WRITE 
;  ELSE,  GET  L  D.  REC 
;  FAILED  TWICE0 
;  NO,  JUMP  .  ELSE 
;  LOAD  FATAL  NESSG 
j  REC  WITH  L.  D.  INDIC 
i  AND  RETURN  TO  DISK 

INCR  LOST  OATH  REC 
;  AND  TRY  AGAIN 
;  REPLACE  CALL  VRCRC  JJP 
i  BY  VERIFYING  CRC 
»  FTERR=CRC  NESSG? 
i  NO,  WRITE  NEXT  REC 
i  ELSE,  GET  BAD  CRC  REC 
i  AND  CHECK  FOR 
i  SIX  FAILURES 
i  FOR  LESS  THAN 

i  UPDATE  REC 
;  WRITE  SECTOR  OVER 
}  ELSE,  SET  FATAl 
i  ERROR  HESSG  AND 
i  RETURN  TO  DISK 
} WRITE  NEXT  RECORD:: 
i«H 

i  GET  SECTOR,  INCR, 

;•*« 

;  AND  RELOAD 
i  DECREMENT  SECTOR  COUNT 


;  RETURN  IF  DONE,  ELSE 
8X> WORD  PTR  £S : ME I0PB5  3  ;  UPDATE 


AL10H 

SHORT  CHLD 

BX.PRNF 

ALES:MCBX] 

AL02H 

SHORT  RSET 

ES:I«BX] 

WRITE 

BX.PRST 

ALES.MCBX] 

AL,08H 

SHORT  FTAL 

ESffBX] 

AL 

CHRST,  AL 

BX.0005H 

DELAY 

WRITE 

BX.FTERR 

ES.NIBXL0FFH 

ALES:MtSWSVJ 
AL04H 
SHORT  VERIF 
HLES:MCL(KTOI 
AL.02H 
SHORT  LSTD 
BX.FTERR 
ESMIBXUGH 

ES:NCBX] 

FLAGW 

NXTR 

ALES:lfFTERR] 
RL.02H 
SHORT  NXTR 
BX.BCRC 
ALESHtBXl 
AL.06H 
SHORT  FCRC 
ES:H£BX] 

FLAtM 

BX.FTERR 

ES:MtBX],02H 

AL,  SECRG 
AL 
AL 
AL 

SECRG,  AL 
CH 

SHORT  L.7 
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LOC  OBJ  LINE  SOURCE 


03F1  808000 

490 

MOV 

D&30H 

DESTINATION 

83F4  03OA 

491 

ADD 

BXjOX 

03F6  D1DE 

492 

RCR 

SL1 

03F8  MD6 

493 

RCL 

SL1 

ADDRESS  BY 

03FA  26891E2500 

R 

494 

MOV 

WORD  PTR  ES:lf  I0PB518X  , 

128  BYTES 

02FF  8060 

495 

MOV 

AL00H 

CLEAR 

0401  26A22C80 

R 

496 

MOV 

ES:MIPRSTlflL 

NON-fflTAL 

0405  26A22D90 

R 

497 

MOV 

ES:MtLOSTDlflL 

ERROR 

0409  26fl22E90 

R 

498 

MOV 

ES.MIPRNFlflL 

RECORDS 

0400  E910FF 

499 

JHP 

FLflGH 

WRITE  NEXT  SECTOR 

580 

KITE 

ENDP; 

501 

502 

; SUBROUTINE  VERFY  ::: 

0410 

503 

VERFY 

PROC 

NEAR; 

9410  E858FD 

504 

CfiLL 

SEEK 

MOVE  TO  DESIRED  TRACK 

0413  862200 

505 

MOV 

B5U0P82 

B  COUNT®#  RECORDS 

0416  263flflF0000 

R 

506 

MOV 

CHES:ICBX] 

04 IB  26092400 

R 

587 

MOV 

ALES:MCI0PB41 

LOflD  SECTOR  REG 

041F  F6D0 

588 

NOT 

fiL 

W 

0421  E6CC 

509 

OUT 

SECR&AL 

WITH  SECTOR  ADDR 

0423  E81E00 

510 

VER: 

CfiLL 

VRCRC 

VERIFY  SECTOR 

0426  26802F00 

R 

511 

MOV 

ALES:ICFTERR] 

CHECK  FATAL  MESSG  FOR 

0420  2402 

512 

AND 

AL02H 

BAD  CRC  INDICATION 

042C  750F 

513 

JNZ 

SHORT  BfiORC 

YES,  JUMP 

842E  E4CC 

514 

IN 

AL.-SECRG 

NO,  GET  SECTOR 

0439  F6D0 

515 

not 

fiL 

JLMU 

fit 

0432  FEC0 

516 

INC 

flL 

REGISTER  AND 

0434  F6D0 

517 

NOT 

fiL 

*♦# 

0436  E6CC 

518 

OUT 

SECRG-AL 

INCREMENT 

0438  FECO 

519 

DEC 

CH 

0430  75E7 

520 

JNZ 

'VER 

CONTINUE  UNTIL  B=0, 

043C  C3 

521 

RET 

THEN  RETURN  TO  DISK 

0430  E4CC 

522 

BADRC: 

IN 

flLSECRG 

LOAD  REG  8  WITH 

043F  F6D0 

523 

NOT 

fiL 

III 

0441  80E8 

524 

MOV 

cam 

6AD  SECTOR  NMBR 

0443  C3 

525 

RET 

RETURN  TO  DISK 

526 

VERFY 

ENDP; 

A AAA 
iTITI 

527 

VRCRC 

PROC 

NEAR 

0444  882400 

528 

MOV 

BX,  I0P84 

0447  2680870000 

R 

529 

MOV 

flLES.MEBXI 

044C  F6D0 

530 

NOT 

fiL 

044E  E6CC 

531 

OUT 

SECRG,AL 

0450  B188 

532 

MOV 

CL80H 

SET  LOOP  COUNTER 

0452  6984 

533 

MOV 

AL84H 

LOAD  READ  INSTRUCTION 

0454  F6D0 

534 

NOT 

flL 

#*« 

525 

INTO  COMMAND  REGISTER 

0456  B2C8 

526 

MOV 

DL,STARG  i 

DL=STflTUS  PORT 

0453  B402 

537 

MOV 

AH,02H 

;  AH=HflSK 

0450  883890 

528 

MOV 

BX-BITBU 

i  LOAO  BIT  BUCKET  flDDRS  TO  BX 

0450  E6C3 

539 

OUT 

COMRQ.AL 

045F 

540 

LOOPV: 

045F  EC 

541 

IN 

flL  DX 

;REflD  STATUS  REGISTER 

9460  22C4 

542 

AND 

flL  AH 

;  UNTIL  DRO 

0462  75FB 

543 

JNZ 

LOOPV 

;  IS  ACTIVE 

0464  E4CE 

544 

IN 

flLDATRG 

i  READ  A  BYTE  TO  BIT  BUCKET 

135 

«S-K  ASSEMBLER 


LOC  OBJ 

LINE 

SOURCE 

0466  F6D0 

545 

NOT 

AL  >  READ  ANO  OUMP  DATA  TO 

0468  88870000 

R  546 

NOV 

0S:«BX1AL  ; 

046C  EC 

547 

DROQ: 

IN 

AL.  DX  >  READ  STATUS 

046D  22C4 

548 

AND 

AL.  AH  >  UNTIL  DRO 

046F  74FB 

549 

JZ 

DRQQ  >  IS  INACTIVE 

0471  FEC9 

550 

DEC 

CL  .  DECREHENT  COUNT 

0473  75EA 

551 

JNZ 

LOOPV 

552 

;  CHECK  FOR  DONE 

0475  E4C8 

553 

ENOW: 

IN 

AL.STARG  ;  READ  STATUS 

0477  F6D0 

554 

NOT 

AL  .  m 

0479  2401 

555 

AND 

AL.01H  i  CHECK  BUSV  BIT 

047B  75F8 

556 

JNZ 

ENOVR  >  UNTIL  ZERO 

047D  E4C8 

557 

IN 

AL.STARG 

GET  STATUS  WORD 

047F  F6D0 

558 

NOT 

AL 

m 

0481  2408 

559 

ANO 

AL.08H 

CHECK  CRC  BIT 

0483  7501 

560 

JNZ 

SHORT  L.8 

0485  C3 

561 

RET 

0486 

562 

L.8: 

RET  IF  GOOD 

0486  B802 

563 

NOV 

AL.02H 

SET  ERROR  MESSAGE 

0488  26A22F80 

R  564 

NOV 

E5:KFTERR]>AL 

IF  BAD 

048C  C3 

565 

RET 

566 

VRCRC 

ENOP; 

567 

568 

;  DELAV: : :  SOFTWARE  TINE  DELAV  OF 

569 

;  C10<BXH2J  MICROSECONDS. 

6. 5  SEOOELAV>12  1 

0480 

570 

DELAV 

PROC 

NEAR; 

0480  90 

571 

NOP 

;15  NIC 

048E  90 

572 

NOP 

i  1.  5  NIC 

048F  98 

573 

NOP 

>15  MC 

0490  48 

574 

DEC 

BX  >15  MIC 

0491  75FA 

575 

JNZ 

DELAV  >4  MIC  IF  JUMP,  2  IF  NOT 

0493  C3 

576 

RET 

;4  MIC 

577 

DELAV 

ENDP; 

— 

578 

ASNCQDE  ENOS 

579 

END 

. 
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SYMBOL  TABLE  LISTING 


NAME 

TYPE 

VALUE 

ATTRIBUTES 

”SEG.  . 

.  SEGMENT 

SIZE=00B0H  PARA  PUBLIC 

flBS.0  .  . 

.  SEGMENT 

SIZE=0900H  BYTE 

ASHCODE  . 

.  SEGMENT 

SIZE=0494H  BYTE 

BADRC  . 

.  L  NEAR 

043OH 

ASHCODE 

BCRC.  .  . 

.  NUMBER 

002BH 

BITBU.  . 

.  NUMBER 

0838H 

CGROUP.  . 

.  GROUP 

ASHCODE  CODE  CONST  DATA  STACK  MEMORY 

OKDO  . 

.  L  NEAR 

82C5H 

ASHCODE 

CHOU  .  . 

.  L  NEAR 

829FH 

ASHCODE 

CHLD.  .  . 

.  L  NEAR 

0392H 

ASHCODE 

CHRST  .  . 

.  NUMBER 

00C4H 

CLR.  .  . 

.  L  NEAR 

00A6H 

RSHCODE 

CLRER.  . 

.  L  NEAR 

009FH 

ASHCODE 

CODE  .  . 

.  SEGMENT 

SIZE=0000H  WORD 

PUBLIC  'CODE'' 

COHRG  .  . 

.  NUMBER 

eecsH 

CONC  .  . 

.  L  NEAR 

011EH 

ASHCODE 

CONST  . 

.  SEGMENT 

SI2=0600H  WORD 

PUBLIC  'CONST 

CROC.  . 

.  L  NEAR 

B241H 

ASHCODE 

CRE  . 

.  L  NEAR 

B254H 

ASHCODE 

data.  .  . 

.  SEGMENT 

SIZEs0000H  WORD 

PUBLIC  'DATA' 

DATRG  .  . 

.  NUMBER 

B0CEH 

DELAY.  . 

.  L  NEAR 

048DH 

ASHCODE 

DERR.  .  . 

.  NUMBER 

0935H 

PUBLIC 

DGROUP  . 

.  GROW* 

ASHCODE  CODE  CONST  DATA  STACK  MEMORY 

DISK.  .  . 

.  L  FAR 

.VMrtll 

WWW 

ASHCODE  PUBLIC 

DR0TR  .  . 

.  NUMBER 

0831H 

DRIB.  .  . 

.  L  NEAR 

0867H 

ASHCODE 

DR1TR  . 

.  NUMBER 

B032H 

DR2B  .  . 

.  L  NEAR 

0074H 

ASHCODE 

DR2TR  .  . 

.  NUMBER 

0033H 

DR3B  .  . 

.  L  NEAR 

0081H 

ASHCODE 

DR3TR  .  . 

.  NUMBER 

0034H 

DRNBR  .  . 

.  NUMBER 

063BH 

DRQAK  .  . 

.  NUMBER 

08C2H 

DROB  .  . 

.  L  NEAR 

046CH 

ASHCODE 

DRSEL  .  . 

.  L  NEAR 

0888H 

ASHCODE 

DRSLE  .  . 

.  NUMBER 

00C8H 

DRVL  .  . 

.  L  NEAR 

0130H 

ASHCODE 

DRV2.  .  . 

.  L  NEAR 

013EH 

ASHCODE 

DRV3.  .  . 

.  L  NEAR 

014CH 

ASHCODE 

ENDRD.  . 

.  L  NEAR 

022DH 

ASHCODE 

ENDSK  .  . 

.  L  NEAR 

01A6H 

ASHCODE 

ENDVR.  . 

.  L  NEAR 

0475H 

ASHCODE 

ENDNR  .  . 

.  L  NEAR 

0344H 

ASHCODE 

ENTR1 

.  L  NEAR 

0013H 

ASHCODE 

EXITSK. 

.  L  NEAR 

01BBH 

ASHCODE 

FATAL  .  . 

.  L  NEAR 

01EDH 

ASHCODE 

FATE  .  . 

L  NEAR 

B295H 

ASHCODE 

FCRC.  .  . 

.  L  NEAR 

03D3H 

ASHCODE 

WOE  13 


HCS-86  ASSEMBLER 


s'a 


FINSH  . 

.  L  NEAR 

0154H 

ASMCOOE 

FLAG1  . 

.  u  (CAP 

020AH 

ASMCOOE 

FLAGH  . 

.  L  NEAR 

0320H 

ASMCOOE 

FTAL  .  . 

.  L  NEAR 

0388H 

ASMCOOE 

FTERR 

.  NUMBER 

002FH 

PUBLIC 

IOP8.  .  . 

.  V  WORD 

jVVUU 

Wwi 

EXTRN 

IOPB8  .  . 

.  NUMBER 

0O20H 

IOPB1  .  . 

.  NUMBER 

0021H 

I0PB2  . 

.  NUMBER 

0022H 

I0PB3  .  . 

.  NUMBER 

0B23H 

I0PB4  .  . 

.  NUMBER 

0B24H 

I0P85  . 

.  NUMBER 

0025H 

IOPD6.  . 

.  NUMBER 

002SH 

I0PB7  . 

.  NUMBER 

0B27H 

lores  . 

.  NUMBER 

B028H 

10PB9.  . 

.  NUMBER 

0B2SH 

IOPBC  .  . 

.  NUMBER 

0036H 

L_5  .  .  . 

.  L  NEAR 

01BCH 

ASMCOOE 

L-S  .  .  . 

.  L  NEAR 

02E6H 

ASMCOOE 

L-7  .  .  . 

.  L  NEAR 

03ECH 

ASMCOOE 

L.8  .  . 

.  L  NEAR 

0486H 

ASMCOOE 

L01  .  .  . 

.  L  NEAR 

0021H 

ASMCOOE 

LOLT.  .  . 

.  L  NEAR 

02BDH 

ASMCOOE 

LOOPY  .  . 

.  L  NEAR 

045FH 

ASMCOOE 

OSTD  . 

.  NUMBER 

002DH 

.STD.  .  . 

.  L  NEAR 

03ACH 

ASMCOOE 

n .  .  .  . 

.  V  BYTE 

0060H 

ABS.0 

MEMO RY. 

.  SEGMENT 

sizE=ee< 

MEMORY.  . 

.  V  BYTE 

aoa flu 

UUwn 

MEMORY 

NORR.  .  . 

L  NEAR 

0107H 

ASMCOOE 

NXTR.  .  . 

.  L  NEAR 

02DOH 

ASMCOOE 

0P3  .  .  . 

.  L  NEAR 

00C3H 

ASMCOOE 

OP4.  . 

.  L  NEAR 

00D6H 

ASMCOOE 

ore.  .  . 

.  L  NEAR 

00E4H 

ASMCOOE 

ore .  . 

.  L  NEAR 

00EDH 

ASMCOOE 

0P7  .  .  . 

.  L  NEAR 

00FEH 

ASMCOOE 

CPER.  .  . 

.  L  NEAR 

08G4H 

ASMCOOE 

oouc 

rKrr.  .  . 

.  NUMBER 

002EH 

PRST.  .  . 

.  NUMBER 

002CH 

Rt  .  .  . 

.  L  NEAR 

00COH 

ASMCOOE 

92.  .. 

.  L  NEAR 

00O3H 

ASMCOOE 

REAO  .  . 

L  NEAR 

01F4H 

ASMCOOE 

RECNF  .  . 

.  L  NEAR 

0358H 

ASMCOOE 

REP_  . 

.  L  NEAR 

02D7H 

ASMCOOE 

KEPT.  .  . 

.  L  NEAR 

015DH 

ASMCOOE 

REST.  . 

.  L  NEAR 

01O3H 

ASMCOOE 

RESTR.  . 

.  L  NEAR 

0277H 

ASMCOOE 

RLOOP  . 

.  L  NEAR 

0216H 

ASMCOOE 

RNF  .  .  . 

.  L  NEAR 

025BH 

ASMCOOE 

RSET.  . 

.  L  NEAR 

036BH 

ASMCOOE 

TCRG 

NUMBER 

00CCH 

£EK  .  . 

.  L  NEAR 

016BH 

ASMCOOE 

SELDR  .  . 

.  L  NEAR 

MUEdU 

wjun 

ASMCOOE 

SKIP  .  . 

L  NEAR 

0116H 

ASMCOOE 

STACK. 

.  SEGMENT 

SIZE=00l 
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MCS-8S  ASSEMBLER 


L>Iik 


STACK-BASE 

Y  BYTE 

wWl 

STACK 

STARG.  .  . 

NUMBER 

00C8H 

STPB.  . 

L  NEW 

B026H 

ASMCODE 

SNS V.  . 

NUMBER 

G02AH 

THRU  .  .  .  . 

L  NEAR 

010EH 

ASMCODE 

TLOOP.  . 

L  NEAR 

0331H 

ASMCODE 

TRKRG  .  .  . 

NUMBER 

00CAH 

VER.  .  .  . 

L  NEAR 

0423H 

ASMCODE 

VERFY  .  . 

L  NEAR 

0410H 

ASMCODE 

VERIF  .  .  . 

L  NEAR 

03B4H 

ASMCODE 

VRCRC  .  .  . 

L  NEAR 

0444H 

ASMCODE 

HLOOP.  .  . 

L  NEAR 

0235H 

ASMCODE 

L  NEAR 

00F1H 

ASMCODE 

WRITE  .  .  . 

L  NEAR 

020AH 

ASMCODE 

ASSEMBLY  COMPLETE  NO  ERRORS  FOUND 


IV.  LINKING  AND  LOCATING  THE  USAFA/8086  SOFTWARE  MODULES 


The  information  presented  in  this  chapter  is  essential 
to  the  user's  understanding  of  how  to  locate  the  variables 
and  code  in  the  various  USAFA/8086  modules.  The  linkage  map 
conveys  little  information  to  the  user  other  than  all  exter¬ 
nal  references  were  satisfied.  The  locate  map,  however, 
presents  the  segment  and  offset  of  all  public  procedures, 
labels,  and  variables  encountered  in  the  USAFA/8086  modules. 
Additionally,  the  start  address  of  all  modules,  data  seg¬ 
ments,  and  code  segments  as  well  as  the  system  stack  are 
given.  The  stack  location  given  (00000H)  must  be  offset  by 
200H  to  determine  the  actual  stack  position  as  this  is  al¬ 
tered  by  the  PLM86  code  of  USAF86.  The  location  of  any 
variable  can  be  determined  using  the  information  given  in 
the  locate  map  in  conjunction  with  the  cross  reference  map 
produced  by  the  computer  or  assembler.  For  example,  suppose 
we  desire  to  find  the  variable  CHAR  in  USAF86.  From  the  lo¬ 
cate  map  USAF86.DATA  begins  at  00250H.  From  the  cross 
reference  map  of  the  compilation  of  USAF86,  the  variable 
CHAR  is  located  relatively  at  004C  .  By  hexadecimal  addi¬ 
tion  00250+004C»0029CH.  Since  CHAR  happens  to  be  PUBLIC  we 
will  also  see  a  direct  location  in  the  locate  map.  It  is 
shown  in  segment  0025H  at  offset  004CH.  This  also  implies 
the  absolute  address  of  0029CH.  The  listings  of  the  linkage 
and  locate  maps  follow. 


ISIS— I  i  ftC-S- 8t  L!r^£-0  1  i  t 
LINK96  .FlCURRMT.  OCA  r'l  FITE  CCl 
NR  SB  PL  PR*'  Fi  LINKUP' 

LINK  HAP  FOR  :Fi:CsJHWT.  LNfc(USAF3S> 

LOGICAL  SEGMENTS  INCLUDED 


i  :»»*>•£}  S- : 

Fit:  C Cl  f l.DiSr-  OBJ  TO  :F1. CURRNT.UK  I 


LENGTH  ADDRESS 

SEGMENT 

Class 

22381 - 

USAF86.  CODE 

CODE 

0074H - 

USAF86.  DATA 

DATA 

00RCH  - 

STACK 

STACK 

AAAAii 

WW1 

NENORV 

NENORV 

2722H  - 

DOS.  CODE 

CODE 

0BA5H  - - 

DOS  DATA 

DATA 

flflflfly  ... 

wWi 

??SEG 

0494H  - 

ASNCODE 

_  _  _ 

WWI 

CODE 

CODE 

0S00H  - 

CONST 

CONST 

QflQQjl  . 

UWWI 

DATA 

DATA 

IWWl  - 

UWWI 

ABS-0 

INPUT  NODULES  INCLUDED: 

:F1:CURRNT.  0BJ(USAF86> 

:Fi:FITZ.  OBJ(DOS) 

:Fi:DISK.  OBJ(DISK) 

ISIS-II  HCS-36  LOCATED  VI.  1  INVOKED  B V: 

L0C86  : FI : CURRNT  INK  TO  :F1:CURRNT  HA  SB  PL  PR(:Fl:LOC.LST)  4 
BS  STMAINPROGRAH)  ODISMSTACK.  USAF86.  DflTVl  OOS.  OATA>  USAFOS.  C00E>  ft 
ASNCODE))  ft 

ADISIKSTACKIBBBBBH);  USAF86.  DATA<00250K>,USAF86.  CODE<0FB0B0H)» 

SYMBOL  TABLE  OF  NODULE  USAF86 
READ  FROM  FILE  :Fi. CURRNT.  LNK 
HRITTEN  TO  FILE  : FI  CURRNT 


BASE 

OFFSET  TYPE  SYMBOL 

BflSE 

OFFSET  TYPE  SYMBOL 

0025H 

QflflQU 

WWW! 

PUB 

HEH0RYARG1PTR 

0025H 

0B4CH 

PUB 

chak 

0003H 

eeeiH 

PUB 

DISKTRACK 

0003H 

rtoofli 

CTWWl 

PUB 

IOPB 

FB06H 

135CH 

PUB 

TIHERREAO 

FB80U 

13BDH 

PUB 

TJMERLOflD 

FB08H 

12D1H 

PUB 

tRITECONSOLELEDS 

FB06H 

12C3H 

PUB 

READCONSOLESHITC 

-HES 

FBBBH 

BF5FH 

PUB 

CONVERTTOFLOftT 

FBBBH 

BF51H 

PUB 

ALUSTATUSHORD 

FB00H 

0F3EH 

PUB 

ALUCMNDHORD 

FB80H 

0F10H 

PUB 

ALUINHORD 

FB06H 

0EE5H 

PUB 

ALUQUTWORD 

FBBBH 

BEB3H 

PUB 

USERIOGETCHflR 

FB80H 

0E9BH 

PUB 

SUPPRESS8LANK5 

FB80H 

BDDFH 

PUB 

DISPLAYDATAARRAY 

FB08H 

0DBCH 

PUB 

SIONEULINE 

FB00H 

BD7BH 

PUB 

SIOCRLF 

FBBBH 

8D51H 

PUB 

SI06LANKS 

FB80H 

BD24H 

PUB 

SIOGETADDR 

FB80H 

8C5AH 

PUB 

SIOGETMORD 

FBBBH 

BBDCH 

PUB 

SIOGETBVTE 

FB08H 

0B88H 

PUB 

SIOHEX 

FB08H 

096CH 

PUB 

SIQVALIDHEX 

FBBBH 

0B28H 

PUB 

SIOGETCHAR 

FBBBH 

0AF9H 

PUB 

SIOOUTSTRING 

FB80H 

0AD7H 

PUB 

SIOOUTHORD 

FB06H 

0AA3H 

PUB 

SIOOUTBYTE 

FB80H 

0A77H 

PUB 

SIOOUTCHAR 

FBBBH 

wnill 

PUB 

FQRCEUPPERCASE 

FBBBH 

0A31H 

PUB 

KEV8DCHARIN 

FBBBH 

8A13H 

PI© 

SERIALCHARIN  . 

FB00H 

B97DH 

PUB 

CRTOUT 

FBBBH 

0964H 

PUB 

SERIALCHAROUT 

FB00H 

06C2H 

PUB 

DELAYLONG 

FBBBH 

08B8H 

PUB 

DELAY 

FB80H 

088FH 

PUB 

LPNEHLINE 

FBBBH 

087BH 

PUB 

LPCRLF 

FB00N 

0851H 

PUB 

LPBLHNKS 

FBBBH 

081AH 

PUB 

LPOUTSTRING 

FB0BH 

07F8H 

PUB 

LPOUTHORD 

FBBBH 

07C4H 

PUB 

LPOUTBVTE 

FB80H 

079EH 

PUB 

LPOUTCHRR 

FBBBH 

.  B664H 

PUB 

NEXTCOWW 

FB0BH 

B764H 

PUB 

ERROR 

FBBBH 

04E1H 

PUB 

HAINPROGRAM 

FD6CH 

237EH 

PUB 

DIRECTORVLIST 

FD6CH 

222BH 

PUB 

INITIALIZE 

FD6CH 

1D2AH 

PUB 

ATTRIBUTECHANGED 

-RIVER 

PDbCH 

1CD4H 

PUB 

ERASEDRIVER 

FD6CH 

1C3EH 

PUB 

RENAMEDRIVER 

FD6CH 

IBSflH 

PUB 

KOPYDRIVER 

FDFCH 

1B4DH 

PUB 

HRITEDRIVGR 

FD6CH 

1AF8H 

PUB 

READDRIVER 

MMU 

002FH 

PUB 

FTERR 

tVWM  1 

WvWI 

0B35H 

PUB 

DERR 

FD23H 

0BB6H 

PUB 

DISK 
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MEMORY  MAP  OF  MODUif  USAFS* 

READ  FROM  FILE  Fi  C-JRRNT  LtK 
WRITTEN  TO  FILE  :F1  CURRNT 

MODULE  START  ADDRESS  PARAGRAPH  =  FB00H  OFFSET  =  04E1H 
SEGMENT  MAP 


1  START 

STOP 

LENGTH  ALIGN  NfiflE 

CLASS 

[  flflflflou 

b  i  WWWn 

TOWtJn 

00ACH 

W 

STACK 

STACK 

1  O0258H 

062C3H 

0A74H 

W 

USAF36.  DATA 

DATA 

092C4H 

0O368H 

90A5H 

i4 

DOS.  DATA 

DATA 

b  FB900H 

FD225H 

223EH 

U 

USAF36  CODE 

CODE 

! :  FD236H 

FDSC9H 

04S4H 

e 

ASMCODE 

['  FD6CAH 

FFDEBH 

2722H 

u 

DOS  CODE 

CODE 

['  FFDECH 

FFDECH 

uWWn 

w 

CODE 

CODE 

['!  FFDF9H 

FFDF8H 

afiflou 

G 

>?SEG 

f-j  FFDF8H 

FFDF9H 

0000H 

B 

ABS.0 

l\  FFDF0H 

FFDF9H 

ac&Li u 

W 

CONST 

CONST 

FFDF0H 

FFDF9H 

cwun 

14 

DATA 

DATA 

\:\  FFFFOH 

FFFF4H 

8005H 

A 

(ABSOLUTE) 

[ '  FFFFb'H 

FFFF6H 

wOtT. 

U 

MEMORY 

NENORV 

GROUP  NAP 

ADDRESS  GROUP  OR  SEGMENT  NAME 
FD230H  DGROUP 
STACK 
MEMORY 
ASMCODE 
CODE 
CONST 
DATA 

FD238H  CGROUP 
STACK 
MEMORY 

asmcode 

CODE 

CONST 

DATA 


V.  CLOSING  COMMENTS 


During  the  development  of  the  USAFA/8086  software, 
several  problems  were  encountered  with  the  Intel  MDS-311 
Software  Package  which  remain  unresolved  as  of  this  time. 


1.  The  bootstrap  function  of  the  locator  does  not  work 
properly. 


2.  The  ASM86  assembler  insists  on  occupying  all  64K  of 
the  MDS800  disallowing  the  standard  interface  to  user  files 
such  as  :L1:  (my  line  printer!). 


3.  The  PLM86  compiler  has  at  least  one  error  in  it. 
Whenever  any  comparison  is  made  to  the  literal  0  (zero)  the 
compiler  generates  erroneous  code.  Example:  IF  A*0  THEN 
....  will  generate  code  which  checks  the  value  of  the  ZF 
generated  by  the  last  ALU  operation  rather  than  the  value  of 
A  itself. 


4.  LINK86  balks  at  certain  results  given  by  ASM86. 


5.  The  compiler  name  table  was  repeatedly  exhausted 
during  the  development  of  DOS86. 


The  source  software  produced  under  government  research 
is  available  for  a  limited  time  by  the  requestor  supplying  a 
single  sided  single  density  diskette  to: 

USAFA/DFEE/Fairchild  Hall 

Computer  Systems  Laboratory  Room  2H25 

USAF  Academy,  Colorado  80840 
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APPENDIX  A 


USAF A/8086  OPERATOR'S  GUIDE 


The  following  steps  are  required  for  system  initialisa¬ 
tion. 

STEP  RESULT 


1  Machine  to  Single  Step 

2  AC  Power  to  on  (DOWN)  Panel  lights  on 

3  Push  Reset  Display 

Adrst  FFFFO 
Data:  EISA 

else  push  again 

4  Machine  to  run  Display 

FbE68 

8888  (Running) 

else  repeat  from  3 

5  Identify  console  by  Logo  to  console 

space  bar  depress  Display 

Fb888 

8888  (Running) 

Logo: 

i isfiFft  snsfc  vfr  3.?n  Operating  System 
DISK  0  NOT  RFRnv  Logo  at  Initialization. 

'TIISK  1  NflT  RFftTlY 
i FNTFR  CDMMPNn  PI  FRSF: 


6  System  Ready  for  Operation 

The  following  presents  a  brief  summary  of  the  USAFA/8086. 


jj 


Console  Description 

Power  Switch:  UP-OFF  DOWN-ON 

16  LED  display:  Output  from  Port  FE/FF 

16  Switches:  Input  to  Port  FE/FF 

Switches  and  Leds  are  not  electrically  connected. 

Single  Step  Unit 

Displays  current  address  and  contents.  Address  is  shown  in 
absolute  (physical)  form  between  00000^  and  FFFFFjj .  Data 
may  assume  any  value  between  0000^  and  FFFFjj .  It  represents 
instruction,  data,  or  address  information  depending  on  rela¬ 
tive  byte  position.  To  the  right  are  4  discrete  leds 
representing  the  major  control  lines  of  the  system: 

MEMR  -  Memory  Read 
IOR  -  Input/Output  Read 
IOW  -  Input/Output  Write 
MEMW  -  Memory  Write 


At  system  initialization,  the  unit  may  be  left  in  single 
step  mode.  Below  the  displays  is  a  push  button  allowing 
single  stepping.  Following  a  system  reset  we  find  the  fol¬ 
lowing: 
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AT  SYSTEM  RESET 

ADDRS 

DATA 

REMARKS 

FFPFO 

E1EA 

FFFFO  is  the  8086  restart  address. 
BA  is  an  extended  jump  op  code. 

El  is  the  offset  low  byte. 

Push  Step 

FFFF2 

0004 

04  is  the  offset  high  byte 
total  off8et*04E-l{{. 

00  is  the  segment  low  byte. 

Push  Step 

i 

FFF4 

OOFb 

Fb  is  the  high  byte  of  the  segment. 
Total  segmentaFb00H. 

Absolute . address  -  FbOO 

+  04E1 

Fb4El 

This  is  the  start  of  the  operating 
system  determined  at  the  time  of 
location  using  LOC86  by  the 
software  designer. 

Push  Step 

FFFF6 

2SC7 

This  step  is  the  bus  interface 
unit  fetching  ahead  to  the 
instruction  queue.  Actual  data 
is  not  meaningful  since  it  will 
not  be  executed  as  soon  as  the 
processor  realizes  a  JMP  has 
been  ordered. 

Push  Step 

Fb4El 

bCFb 

These  are  the  first  two  bytes 
of  the  actual  operating  system 
(USAF86  Module) . 
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Reset  Button 


The  reset  button  asserts  a  signal  to  the  microprocessor 
forcing  it  to  resume  processing  at  location  FFFPO.  This 
cannot  be  changed  as  it  is  an  internal  function  of  the  CPU 
NMI.  This  button  forces  an  interrupt  which  the  processor 
cannot  ignore.  The  operating  system  loads  locations  8,  9 , 

A,  and  B  with  EF,  IF,  00,  FB.  This  is  the  address  of  the 
operating  system  routine  service  routine  for  the  NMI.  The 
vector  location  8  to  B  cannot  be  changed.  It's  contents, 
however,  could  be  reloaded  to  any  value  from  software. 

The  following  section  describes  the  primary  control  charac¬ 
ters  and  gives  examples  of  typical  system  realction.  The 
operating  system  module  USAF86  is  responsive  to  the  follow¬ 
ing  primary  control  characters: 

S  -  Substitute 
L  -  List 
G  -  Go 
F  -  Fill 
M  -  Move 
P  -  Print 
Q  -  Convert 
B  -  Breakpoint  Set 
C  -  Clear  Breakpoint 
T  -  Test  Module 
X  -  Abort 

The  operating  system  module  DOS86  uses  the  following  primary 
control  characters: 

R  -  Read 
W  -  Write 
D  -  Directory 
I  -  Input  Hex  Files 
N  -  Name  Change 
A  -  Attribute  change 
R  -  Copy 


Any  primary  character  evokes  a  full  English  response  with 
prompts  from  USAF86  or  DOS86. 


Substitute  (S) :  Allows  the  user  to  alter  memory  byte  by 
byte.  The  system  asks  for  an  address.  This  may  be  in  the 
form  XXXX : YYYY±DDDD  where  XXXX  is  the  desired  segment.  YYYY 
is  the  desired  offset.  DDDD  is  the  desired  displacement. 
Entry  is  terminated  by  a  Carriage  Return.  The  system 
responds  by  giving  a  display  of  the  net  offset  followed  by 
the  current  memory  value.  Cells  which  are  not  desired  to  be 
changed  can  be  passed  using  either  the  space  bar  or  the  car¬ 
riage  return.  Routine  is  exitted  using  the  character  X 
which  is  the  standard  system  abort  character.  0's  are  un¬ 
derstood  by  default  if  not  entered,  i.e.,  8-0008. 


| . 
[ 

| 


x 

ENTER  CnMMKNn  PL EflSF: SUBSTITUTE 

♦FFFF: 0000 

fiOOO-FP-X 

FNTFR  C.nMMPNri  PI  FftSF: SUBSTITUTE 

♦0000: l nox _ 

PNTER  enMNPNn  PI  FBSF: SUBSTITUTE 
♦  0000:0100 
0100— PF-11 
01 01-00-2? 

01 02-F0-33 
01 03-F7-44 
01 04- OF -55 

01  05-ftO-X _ _ 

ENTER  CDMMftNO  PI. FRSF* SUBSTITUTE 
♦  1  00 

0100-11-1? 

01 01-??-?? 

01 0?-33-34 
01 03-44-45 
01 04-55— 5A 

01 05— 30— X _ 

FNTFR  r.nMMPNTi  PI  FRSF: SUBSTITUTE 

♦ 1 0 0+8 

01 06-F0-78 

01 07-F7-?9 

01 OR-OF-9R 

01  0*3— 00— X _ 


Substitute  Command  Examples 

CRDRS) 

<RDRS>  Aborted  Sequences 

______ 


Segment:  Offset 


<RDRS> 


Offset  Only,  Leading  Zeroes 
Not  Shown. 


<RPRS> 


Offset  +  Displacement 
(Segment  Implied) 


List  (L) s  Allow  the  user  to  display  to  the  console  any  con¬ 
tiguous  block  of  memory.  User  must  supply  the  address  in 
format  (XXXXsYYYY)  and  the  number  of  bytes  to  be  displayed. 
Entries  are  in  hex. 


fntfp  i iflMMANTi  pi  EASE: LIST  (RPRS*CNT)  List  Command  Example 

♦  j  fis,  ?S 

n i  ns  so  ftft  ftft  no  fo  fp  of  oo  fo  f? 

0110  SF  Sft  FO  Fft  OF  no  FO  FF  OF  CO  FO  FF  OF  ft?  FO  FC 

0 1  r  0  OP.  00  -FO  FT)  OF  04  FO  FF  pc  as  — , - — — — — — 


Go  (G) s  Allows  the  user  to  execute  a  program  at  a  given  ad¬ 
dress  in  format  XXXXsYYYY.  Again,  leading  zeros  and  unen¬ 
tered  data  are  assumed  as  zeroes. 


-HTFP  rriMMANP  PLEASEsGD  (APRS)  Execution  Example 

♦FBOOs  0&B4  Execute  "Next  Command" 

TNTFP  rDMMftNP  PL FOSE:  _ 


Fill  (F) s  Allows  the  user  to  block  fill  any  contiguous  block 
in  memory.  User  must  supply  the  address,  the  number  of 
bytes,  and  value  to  be  filled  in  byte  form  (00-FF) . 


Fill  Example  and 
Partial  Result 


HTEP  COMMANP  PIERS?: FILL  (START *CNT»VRL> 

*2000*  1  00.  00 

•NTER  COMMANB  PLERSFSLTST  (RPRS.CNT) 

•2000*20 

'000  on  oo  no  oo  oo  oo  oo  on  oo  oo  oo  oo  oo  oo  oo  oo 
•oio  oo  no  oo  on  on  on  oo  qq  qq  no  oo  no  nn  nr>  nn  on 
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Move  (M) :  Allows  the  user  to  move  any  block  to  any  location. 
Address  of  source,  address  of  destination,  and  number  of 
bytes  must  be  supplied.  Data  moved  is  copied  exactly. 


fntfp  cnriMftnn  PLEfiSE :  mdve  (SOURCE*  BEST*  CNT>  Move  Example:  Data  at  100 
♦  100,20 fin,  10  Entered  Above;  See  Substitute 

fntfp  cnMMRNn  PtFKSF:LiST  (flops, cnt)  Example 

♦2000,20 

2000  12  23  24  45  58  SO  78  83  88  00  F0  FP  OF  00  F0  F7  ' 

2010  no  oo  on  oo  on  no  no  no  oo  no  qq  on  oo  no  on  no 


Print  (P) :  Allows  contiguous  block  of  memory  to  be  dumped  to 
the  line  printer.  User  supplies  address  and  count. 

OF  SQ’Ftf  bF  PO  08  0F  ftf  OF  ’flE ' Ftt  7/ TO  &  »  » 

8**  OF  40  F9  FE  F9  09  0F  5F  OF  DO  F0  FE  FO  00  9F  BE 

6F  18  FO  FF  Ffl  1ft  0F  EF  OF  C£  F9  FF  F8  Ftt  8F  5F 


&m  HET10RV  DUMP 


Convert  (£) :  Changes  a  given  representation  of  a  floating 
point  word  to  its  decimal  value  and  prints  it  on  the  con¬ 
sole.  User  supplies  the  address  of  the  floating  point 
number.  Routine  uses  AM95J1  APU. 


FNTFP  CHMMRNO  PI  FRSP:  SIIBSTITUTF  <RTlPS> 

♦3  onn 

30  no—  nn- op 
3001 -RF-RO  i 

^Onp-FTi-on  >  Substitute  a  2.0  at  location  3000 
3003-?0-nn  I 
3(i(i4-(in-X  J 


FNTFP  nnriMRND  Pl.FRSFt  G»  3000 
>(i(ifin(ino  F-no _ 


Q  (Convert)  Example 


Breakpoints  (B) :  Can  be  set  any  address  in  RAM.  User  sup¬ 
plies  the  address.  Will  restore  call  upon  encountering 
breakpoint.  Uses  software  interrupt  3.  Only  one  breakpoint 
is  allowed. 

Clear  Breakpoint  (C) :  Allows  a  user  to  clear  a  unencountered 
breakpoint.  Caution:  clearing  nonexistant  breakpoints  has 
an  undefined  result. 

-  _ Breakpoint  Operations 


FHTFP  rntlMRNn  PL  FRSE:  BPFRk POINT  SET  <RDPS>  Set  Breakpoint  at  1000 

♦  ItmO 

FNTFP  CnMMPNn  PLFR$F:GD  <RT1RS>  Execute  1000 

♦  1  ii  0  i*i 

Cl  ERF  BFFRkPn  I  NT  Breakpoint  Encountered  and 

Cleared 


fcPFflk-  PCI  TNT  FNCni.INTFPFU  RT  0000:  1 000 


Breakpoint  Found 


FNTFP  COMMRNIT  PLFRSF:LIST  (RITPS.CNT) 

♦1000»1 

l  non  nc  ^  Contents  of  1000  Before  Breakpoint 

F"lF:*  CnMMftNri  FI  FR5F:  ppfRKpnTNT  SFT  (RDRS> 

FNTFP  CnMMRNT.  PI  FRSFtLTST  (RPPS.CNn 
♦  1  0  0  0*1  ' 

1  000  r:p  < —  Interrupt  3  (Software)  set  by  operating  system 

FNTFP  r.riMMRNTl  PlFftSFsClFRP  BPFRkF'DTNT 

♦  ni on. ™MMRNn  PL  * L I ST  <RDRS , CNT> 


Test  Module  (T) :  Invokes  system  diagnostic  package.  Secon¬ 
dary  command  characters  used  are: 


M  -  Memory  test 
A  -  APO  test 
R  -  Ramp  DAC  test 
H  -  Hybrid  Loop  test 
L  -  Loop  tolerance  test 
C  -  Console  LEDs/Switches 
I  -  Integrated  Circuitry 
K  -  Keyboard  Display 
T  -  Timer 
D  -  Discrete 
E  -  Console  LED  Ramp 
P  -  Floppy  Disk 


Memory  Test  (T,M) :  user  supplies  starting  address.  Memory 
Ts  written  twice;  first  to  55  and  then  to  AA  one  cell  at  a 
time.  First  cell  to  fail  on  readback  is  declared  bad. 
Hence ,  routine  must  fail  at  the  top  of  memory.  Starting  ad¬ 
dress  should  be  greater  than  00369H  since  system  data  and 
stack  are  below  this  level. 


FNTFP  COMMAND  PLEASE: TEST  MDDULE  Memory  Test  Example 
♦MFMORY  TFST 

FNTFR  STARTING  ADDRESS: 369 

MEMORY  FATl  FD  AT  0000:9000  I.ITTH  THE  VALUE  FF*- Must  fail  at  top  of 


memory. 

FNTFR  COMMAND  PLEASE: LIST  (ADRS»  CNT>  „  _  ^  ,, 

♦  1  000*20  .Result  of  all  memory 

Kino  AA  AA  AA  AA  AA  AA  AA  AA  AA  AA  AA  AA  Afi  AA  AA  ’  being 

nun  AA  AA  AA  AA  AA  AA  AA  AA  AA  AA  RA  flft  AA  AA  AA  AA  .tested! 


APU  Test  (T,A) s  Works  a  "simple"  problem  in  floating  point 
using  the  AM9511.  The  test  actually  is  £he  conversion  which 
is  presented  to  the  console.  Uses  \the  convert  function  of 
USAF86.  Should  show: 

ENTER  COMMAND  PLEASE:  TEST  MODULE  APU  Test 

•APU  TEST 

♦P.  0000000  F-fu'i  +  4-3.  0000000  E-00=*  +5.0000000  E-00 


Ramp  Test  (T,R) :  Ramps  the  indicated  DAC  (ports  40  to  5E) 
from  -100  volts  to  *100  volts.  An  o'scope  should  be  used  to 
analyze  channel  performance.  Exit  by  NMI. 

ENTER  command  PL  EASE:  TEST  MODULE  Hybrid  Ramp  Test  Examples 
♦RAMP  PACS 

CNTFB  pnRT  MUMPER: 4P _ 


Hybrid  Loop  test  (TrH) :  Takes  a  given  ADC  port  (40-5E  )  and 
an  arbitrary  DAC  port  (40-5E  )  and  links  them  through 
software  connecting  the  DAC  port  to  the  ADC  port.  Exit  by 
NMI. 


FNTFP  COMMAND  PLEASE: TEST  MODULE,,  Hybrid  Loop  Test  Example 
♦HYBRID  LOOP 

FNTFP  DAC  PnRT : 4?  '  Result:  DAC  42  ‘ tied  to  ADC  50 

FNTFR  ADC  P0RT;5i1 _ 


Hybrid  Tolerance  Test:  allows  a  tolerance  check  of  ADC/DAC 
loop.  Not  used  thus  far  with  system. 

FNTFR  cnMMRNn  PiFASFsTFST  MIITMU.  F  Hybrid  Loop  Tolerance  Test 

♦LOOP  TFST 

FNTER  DRC  VAl  UE»  42 

FNTFR  PORT  NUMBFR*  44  / 

HYBRID  I  nnp  FRRDR  MRS  greater  THAN  TOLERANCE— 01 3D  '  ' 

FNTFR  PRC  VRI  •  >F :  X _ 


Console/LED  Switches  (TC) :  Console  switches  are  software 
connected  to  console  lecfs  (i.e.,  they  echo).  Exit  by  NMI. 


pntfr  command  pl  EASE: TEST  MODULE  Console/IED  Loop  Test 

♦CONSOL F  I  FPS^SW ITCHES  _ 


Integrated  Circuit  Test  (T,_I)  s  This  routine  allows  the  user 
to  directly  address  any  8  bit  input  or  output  port  in  the 
system.  If  a  read  is  desired  the  result  is  given  the  con¬ 
sole  leds.  If  a  write  is  directed,  the  data  is  taken  from 
the  console  switches.  X  to  abort. 


FNTFR  COMMAND  PLERSE*TEST  MODULE 
♦INTERRRTFD  CIRCUITRY 
FNTFR  PORT  NUMBER  FF 
TYPE  R  Tn  RFRD*  M  TO  WRITE  R 
FNTFR  PORT  NUMBER  FE 
TYPF  P  TO  RFRD.  M  TO  WRITE  R 
FNTFR  PORT  NUMBER  FF 
TYPF  R  TO  RFRD*  W  TO  WRITE  R 
FNTFR  PnRT  NUMBFR  FE 
TYPE  R  TO  RFADt  W  TO  WRITE  W 
FNTFR  PORT  NUMBFR  FF 
TYPE  R  TO  RFRD*  W 


Keyboard/display  Test  (T,K) :  Has  the  user  print  in  the  en¬ 
tire  alphabet  and  numerics. 


FNTFP  COMMRND  PIFRSF:TFST  MODULE  Keyboard  Test 

♦KEYPORPTi  DTSPtRY  TFST 
FNTFP  TMF  FXRC.T  SRMF  DRTR  • 

RPCTiFFGHl  Jfcl  MNOPQRSTNVMXY701P34SR7R9 
RPCDEFGHI  ..IRLMNOPORSTI  IVUXYZ01 P3456789 
FNTFP  rOMMRNO  PI  FRSF :  TFST  MODULE 

♦KFYPnftPn  tiispi  ry  tfst 

FNTFP  THF'  FXRCT  SRMF  DRTR 
RP.r.HFFGHI.lKl.  MNnPGRSTUVMXY70t?34 5*789 
Rpr.nF 

FFYPn  FNTPV  FRPOR _ 


Timer  Test  (T,p :  Causes  the  8253  to  be  programmed  so  that 
it  outputs  50%  duty  cycle  square  waves. 

OUTO  -  1000  Hz 
OUTl  -  1000  HZ 
OUT 2  *  1000  Hz 

Square  waves  must  be  checked  with  an  o'scope  at  the  8253  on 
the  hybrid  interface  card,  timer  continues  running  in  this 
mode  until  reprogrammed. 


FNTFP  rnMMRNTi  PI  FRSE s  TEST  MOTiiJLE  Timer  Test  Example 

♦TIMER  TFST 


Discrete  Test  (TD) :  The  discrete  out  and  in  ports  must  be 
cabled  to  each  other  and  28  volt  power  applied.  Each  port 
has  all  values  from  0000  to  FFPP  written  and  verified. 


FNTFP  COMMRND  PLERSE  s  TEST  MODULE  Discrete  I/O 

♦DISCRETE  I/O  TFST 

TUSrpFTF  TFST  1  FRTLFD — 0001 _ Unit  Not  Cabled  Properly 

Test  Console  Leds  (TE) :  Ramps  the  console  leds  (i.e.,  this 
is  a  busy  work  routine  -  good  for  those  who  like  flashing 
lightsl ) .  Exit  by  NMI. 


FNTFP  rnMMRND  PI. ERSE* TEST  MODULE  Console  LED  Ramp  Test 

♦FCONSni  F  LED  PRMP  _ _ _ 
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Test  Floppy  Disk:  Assumes  disk  powered  and  diskette  inserted 
and  ready.  Allows  the  user  to  directly  access  any  track  and 
sector  of  either  diskette.  No  software  write  protects  are 
honored.  User  must  provide  the  XOPB-Input  Output  Parameter 
Block  in  memory. 


IOPB 


WORD 

0 
1 


Channel  Word,  normally* 00 
Diskette  Word,  indicate  drive,  operation 
04*Read,0 
14-Read, 1 
06-Write, 0 
16*Write,l 
01-Seek, 0 
11-Seek, 1 

2  ♦  of  sectors  to  be  affected,  usually-01 

3  Track  (0-4A) 

4  Sector  (0-1A) 

5  Offset  Buffer  Addrs  Low  ^ 

6  Offset  Buffer  Addrs  High?  Assumed  in  Segment  0000 

7  IOPB  #  normally*01  J 

8  Next  IOPB  Low,  normally-00 

9  Next  IOPB  High,  normally-00 


FNTFP  rnnMANO  Pl.FASF:  SUBSTITUTE  <AB»S>  Floppy  Disk  Test 
♦  1000  .  ..  .  Create  IOPB 

1  000-AA-00  I  —  Channel  Word 
1  001-AA-03  —  Diskette  Word 

1  0  0P-AA-  oi  —  #  of  Records 
1  003-ftA- on  —  Track 
1  004— AA— 01  —  Sector 

1  005— A  A- 00  _  Buffer  Low  Offset 

100A-AA-07  —  Buffer  Hi^i  Offset 

1  007— AA— 01  ,  —  IOPB  # 

1  OOS-AA-OO  —  Next  IOPB  Low  Offset 
1  00A-AA-0O  —  Next  IOPB  Higi  Offset 

1  00A-AA-X _ _ 


The  disk  operating  system  uses  memory  locations  up  to  0780H. 
Each  sector  of  the  diskette  contains  80uor  126^ bytes  in 
IBM3740  format.  The  following  primary  control  characters 
invoke  disk  operating  system  routines: 

D  -  Directory 
N  -  Name  change 
A  -  Attribute  Change 
R  -  Read 
W  -  Write 
I  -  Input  Hex  Pile 
K  -  Copy 
E  -  Erase 
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Directory  (D) :  The  user  must  indicate  drive  number  (0  or  1) 
and  whether  (A)  all  files  are  desired. 


FHTFP  r.flMMftNn  PI  FRSF:  DIPFCTOPY 


FILF 

FXT 

riPTftSFCTDPS 

FlTTP 

ISIS 

niR 

o  n  i  «* 

FI 

ISIS 

MAP 

on  up 

FI 

ISIS 

Tn 

0017 

FI 

ISIS 

\  A  Ft 

0001 

FI 

ISIS 

B1M 

005C 

SFI 

ISIS 

Cl.  I 

on  is 

SFI 

AxMAfl 

006C 

31.11 

A'MAfl 

nvn 

001  0 

SMI 

ASMS  Cl 

nvi 

00!  0 

SMI 

AS  MAH 

DV? 

0011 

SMI 

asmsa 

nvs 

0008 

SMI 

ASMS  ft 

nv4 

OOB9 

SMI 

A’XRFF 

OOPP 

SMI 

FflRMAT 

oosn 

SMI 

r  DRY 

004P 

SMI 

FiFLFTF 

00?6 

SMI 

IMF 

0036 

SMI 

FDIT 

0039 

SMI 

HFXnFs.l 

00P1 

SMI 

DBJHFX 

001 F 

SWI 

PFNAMF 

0013 

SMI 

^1.1  ITCH 

0006 

SMI 

T  D8?? 

001 E 

SMI 

inF 

TST 

0006 

nFMn 

jnF 

00  Op 

TDTAI  : 

SECTORS 

=  03f:9/0?rip 

FHTFP 

rnMMFiND  PI.  E8SE  *  D I  PECfOPY 

FILF 

FXT 

DPT  flSEC.TOPS 

JQF 

TST 

0  0  06 

riFnn 

IDF 

00  Op 

TnTfti 

SFCTflR 

S=  03C9/1 07  H2 

Directory  Conmand  Example 
All  Piles 


Directory  Example 
NON-I  Files 
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must  supply  the  drive  (format  :P0 


Name  Change  (N) s  The  user 
or  :Fls)  and  the  file  name. 


FNTFR 


PL  FRSF !  NRMECHANGF 


♦:F0: JOE. TST, JIM. TST 

ENTER  COMMAND  Pl.FASF :  DIRECTORY  0 

FILE  EXT  DATRSFCTORS 


JIM  TST  0006 

PE  Mn  inF  non? 

TQTRL  SECTORS*  0^09^070? 


Attribute  Change :  The  user  must  supply  the  drive  number,  the 
file  name,  and  the  attribute  typing  as: 

NI  Not  Invisible 

I  Invisible 

NW  Not  Write  Protected 

W  Write  Protect 

NF  Not  Format 

F  Format 

NS  Not  System 

S  System 


ENTER  CnMMRNTi  PLEASE:  RTTR I  BUTE  CHANGE 
•: F0: JIM. TST* I 

ENTER  COMMAND  PLEASE:  DIRECTORY  0 
FILE  EXT  DRTRSFCTnRS 

DEMO  JOF  000? 

TDTRI  SECTORS*  03C9X07D? 


Attribute  Charge 
Make  I 


PNTFR  COMMAND  PLEASE: RTTR I BUTF  CHANGE 
♦  : F0: JIM. TST « NI 

ENTFR  COMMAND  Pt. ERSF:  DIRECTORY  0 
FILE  EXT  DATASECTORS 


Return  to  NON-I 


JIM  TST  0006 

DEMO  JOF  000? 

TOTAL  SFCTPRS*  03C9^07D? 


Read  (R) :  Read  copies  identically  the  contents  of  a  file 
into  memory,  user  provides  drive,  name,  start  address,  and 
upper  limit.  The  start  address  will  default  to  1000H  and 
the  upper  limit  will  default  to  07FFFH. 


FNTFP  r.ntiHRNii  PLERSF :  RERD  Read  Example 

♦  *  F  Cl  5  hEMfl.  JflE 

PERU  OPFRRTJON  CDMPIFTED 


Input  Hex  File  (1^) :  Reads  and  interprets  a  hex  file  placing 
it  in  the  location  in  memory  indicated  within  the  file.  See 
the  Intel  8086  manual  for  absolute  file  formats.  This  is 
the  method  by  which  we  download  from  the  MDS800  to  the  USAFA 
8086. 


fntfp  crJMWfiND  plfrse:  INPUT  HEX  FILE  Input  Hex  Pile  Example 

♦  iFi'iiPEND.  JnF _ . _ 


l6] 


Write  (W) s  This  routine  copies  from  memory  to  disk  exactly. 
User  gives  a  drive,  file  name,  start  address,  and  final  ad¬ 
dress.  _ 


FNTFR  CCIMMANP  PI  EASF: IdRI TE 
♦*  FOsECHfl.  BIN.  1  0 0 0 »  1  07F 

WRITF  nPFRPTTDN  COMPLETED 

Write  Example 

FNTFR  COMMAND  PLEASE: DIRECTORY  0 
FILE  EXT  DATASFC.TnRS 

New  Directory 

JIM  TST  ft  006 

pemd  inp  ft  o  0? 

echo  rin  0001 

TQTRI  SFCTnRS*  03r:R/ft7P? 

Kopy  (K) :  Copies  a  file  from  drive  to  drive.  User  gives 
drive  and  name  to  drive  and  name. 


ENTER  cnHHRNI)  PLERSE: KDPY  Copy  Example 

♦:FO*FCHO.  PIN.  s F 1  s ECHO « BUN 
FNTFR  CnMMRNn  PLFRSF: DIRECTORY  1 
FILF  FXT  BATfiSFCTORS 


I'EMD  RTC  000E  New  Directory  of  Drive  1 

FTHD  RUN  0001 

TOTAL  SECTORS*  03C4/07P2 


Erase  (E) :  Delete  a  given  file  from  a  given  drive 


FNTFR  COMMAND  PLERSEsERRS'F  Erase  Example 

♦: FI : ECHO. DUN 

ENTFR  COMMAND  PL ERSE: DIRECTORY  1 
FILF  EXT  DATRSFCTORS 


DEMO  PIC  O.CiiTp 

TOTRl  SECTOR*®  ft3C:Vn7PP 


ENTFR  COMMAND  PI  FASF : ERASE 
♦: FI : FAKF. PTH 


FILF  NOT  FOUND 
FNTFR  COMMAND  PLEASE : 
IISRFR  ftrtAA  VFP  3.S?0 


Ti  1*.k  Cl  NflT  PFRDY 
DISK  1  NOT  PERRY 
FNTFR  COMMAND  PI  FASE: DIRECTORY 
FILE  EXT  DATASFCTORS 


IISRFR  AfiRA  VFR  3.P0 

D  I  Sk  fi  PFRDY 

DISK'  1  NnT  PFRRY 

FNTFR  COMMAND  PI  FASE: DIRECTORY 


PILE 

FXT 

BATASFCTDRS 

botp 

W 

C330 

JIM 

TST 

0  0  06 

nFMn 

jdf 

0  0  fi? 

pchh 

PTN 

0  0  fi  1 

TOTAL 

SECTORS 

«  03CB/07D* 

ENTER 

COMMAND 

PL  EPSF: DIRECTORY 

FILE 

EXT 

DATASFCTORS 

JIM 

TST 

0006 

TbFMD 

ihf 

000? 

Ftm 

DIN 

OOfit 

TDTPl 

SFCTORS 

a  fi3CB/fi?riP 

ENTER  COMMAND  PI  FASE: ERASE 
♦ :  F  (i  s  ASMS  Cl 

FILE  WRITE  PPOTFCTFD _ 


Additional  Erase  Example 


APPENDIX  B 


MDS-800  DISKETTE  PHYSICAL  AND  LOGICAL  ORGANIZATION 


MDS-800  DISKETTE  PHYSICAL  AND  LOGICAL  ORGANIZATION 


Each  diskette  is  physically  organized  as  77  recording  tracks  of  26 
sectors  (often  called  records  car  blocks)  per  track  and  128  data  bytes  per 
sector.  The  actual  recording  of  digital  data  is  in  accordance  with  the 
IBM  3740  standard  format.  For  specific  details  on  this  format  refer  to 
the  IDM  Compatibility  Reference  Manual  published  by  Shugart  Associates. 

Based  upon  this  physical  organization,  the  MDS-800  systan  software 
imposes  an  additional  logical  organization  for  recorded  data.  WiS-800 
reserves  specific  tracks  and  sectors  for  system  use  and  many  of  these 
must  be  preserved  across  MDS-800  and  non  MDS-800  systems  for  compatibility. 
These  reserved  tracks  and  sectors  and  their  uses  and  formats  are  as 
follows: 

TRACK  0 

a.  System  Initialization  Program  -  Sectors  1  through  23  are  used  by 
MDS-800  for  its  System  Initialization  Program.  Even  though  non-MDS 
systems  may  not  require  such  a  program  (e.g. ,  it  may  be  in  RCM  instead) 
for  compatibility  with  MDS  systems  these  sectors  should  not  be  used  for 
any  other  purposes. 

b.  Disk  Label  -  Sector  26  is  used  to  record  the  logical  name  assigned 
to  the  diskette  by  the  user  when  prompted  by  MDS-800.  Only  the  first  9 
bytes  of  this  sector  are  used  to  store  the  ASCII  name  which  is  assigned 
in  conformance  with  the  MDS  convention  of  names  composed  of  1  to  6 
characters  with  optional  extensions  of  0  to  3  characters  (i.e.,  NNNNNN.EEE) . 
For  names  shorter  than  6  characters  and/or  extensions  shorter  than  3 
characters,  ASCII  mils  (00^)  are  inserted  so  that  9  characters  are  always 
recorded. 

EXAMPLES :  TRACK  0,  SECTOR  26 

BYTE: 


DISKETTE  NAME 

1 

2 

3  4 

5  -  6 

7  8 

9 

DELETE^HEX 

- » 

44(2)45 

4C  45 

54  45 

48  45 

58 

SAM 

- * 

53 

41 

4D  00 

00  00 

w  n 

00 

ABLE.CBJ 

- > 

41 

42 

4C  A5 

00  00 

4F  42 

4A 

COPY. TO 

- > 

43 

4F 

50  59 

W  W, 

54  4F 

JS 

NAME 

EXTENSION 

NOTES:  (1) 

The  ASCII  character  far  the  period  ( . )  is  not  recorded. 

(2) 

Hex  representations  of  ASCII  characters. 

c.  Linkage  Maps  -  Sectors  24  and  25  are  used  by  MDS-800  as  linkage  maps 
for  the  System  Initialization  Program  and  Disk  label  respectively.  Link¬ 
age  maps  are  closely  tied  to  the  diskette  directory  so  their  pirpose  and 
format  will  be  discussed  after  the  directory  is  described. 


TRACK  1 


a.  Directory  -  Sectors  2  through  26  are  used  by  MDS-800  to  store  file 
directory  information  for  all  files  stored  on  the  disk.  Each  directory 
entry  requires  16  bytes  this  allowing  up  to  200  files  per  disk  (assuming, 
of  course,  that  the  files  are  sufficiently  small  to  all  fit  on  the 
renaming  tracks  of  the  disk). 

The  foxmat  for  each  directory  entry  is: 

BYTE  CCNTENT/USE 

1  00  =  ACTIVE  FILE:  Active  files  are  protected 

from  being  overwritten  by  newly  created  files 
and  are  readily  accessable  via  all  MDS  connands. 

FF  ■  INACTIVE  FILE:  The  directory  entry,  sector 
linkages  and  actual  file  contents  may  still  be 
intact  for  a  file  made  inactive  but  since  Inactive 
file  space  is  eligible  for  being  overwritten  by 
newly  created  files,  re-activation  of  inactive 
files  may  only  be  possible  if  no  other  files  have 
been  created  subsequent  to  file  deactivation. 

7F  ■  UNUSED  FILE  ENIRY:  Space  not  yet  used, for 
directory  entries.  UDS  inserts  nils  (00)  in  the 
remaining  15  bytes  of  all  such  unused  file  entries. 

2-7  FILE  NAME  *  1  to  6  ASCII  characters  with  nils 

(00)  in  byte  positions  where  less  than  6 
characters  are  used. 

8-10  FILE  NAME  “  0  to  3  ASCII  characters  with  nils  (00) 

EXTENSION  in  byte  position  where  less  than  3 
characters  are  used. 

11  FILE  ATTRIBUTE 

FLAGS 

BIT  7  -  FORMAT  FLAG  (F)  -  When  set,  the  file  cannot 
be  deleted,  renamed,  or  opened  for  output 
(i.e.  write-to-file)  or  update.  (Newly 
fanned  diskettes  are  also  assigned  this 
attribute.)  This  attribute  is  normally 
only  given  to  files  which  should  never  be 
changed  but  not  to  any  other  files  since 
they  can  be  protected  by  the  WRITE— FRCTIFCT 
attribute  flag. 

BITS  6-3  »  Not  used  -  set  to  0  by  MDS-800. 

BIT  2  »  WRITE-PROTECT  FLAG  (W)  -  When  set  the  file 
cannot  be  deleted,  renamed,  or  opened  for 
output  or  update. 
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BYTE 


I 

oontent/use 

BIT  1  *  SYSTEM  FLAG  (S)  -  Used  In  conjunction  Kith 
the  S  switch  in  the  MDS-800  FCHMAT  cannaod 
to  cause  the  file  to  be  copied  to  the 
second  disk  drive  (i.e. ,  drive  1). 

BIT  0  =  INVISIBLE  FLAG  (I)  -  Used  in  conjunction 
with  the  I  switch  in  the  IDS-800  DIR 
camand  to  suppress  listing  of  the  file's 
directory  entry. 

12  FINAL  SECTOR  =  Binary  Count  of  the  number  of  valid 

BYTE  COUNT  bytes  in  the  last  sector  of  the  file. 

Valid  bytes  are  those  that  actually 
belong  in  the  file  content  versus 
filler  bytes  often  inserted  to  fill 
out  each  sector.  01-*80„  are  the 
only  values  this  byte  can  assume. 

16  bit  binary  count  of  the  number  of 
sectors  in  the  file.  Byte  13  holds 
the  least  significant  bits  and  14  the 
most  significant.  Max  sector  count 
is  approximately  18721Q  «  0750^. 

15  LINK  MAP  =  Binary  values  in  the  range  01  to  1A*,,  of 

SECTOR  #  the  sector  holding  the  first  link  nap  of 

the  file. 

16  LINK  MAP  -  Binary  value,  in  the  range  00  to  4CL.,  of 
TRACK  #  the  track  holding  the  first  link  map  of 

the  file. 

b.  Linkage  Map  -  Sector  1  is  used  by  MDS  as  the  first  linkage  map  sector 
for  the  Disk  Directory.  (See  linkage  map  description  below) . 


13/14  #  OF  SECTORS  ■ 

IN  THE  FILE 


LINKAGE  MAPS 

As  files  are  created  by  MDS-800,  directory  entries  are  made  in  the 
directory  space  and  sector  linkage  maps  are  created  in  available  (umsed) 
sectors  starting  with  Track  0  sector  24  and  progressing  sequentially 
by  track  and  sector  through  unused  sector  space.  Since  MDS-800  allocates 
file  space  on  a  sector -by-sector  basis  based  on  what  is  available  in  the 
inactive  and  unused  sector  space,  quite  often  sectors  used  by  a  file 
requiring  multiple  sectors  are  not  allocated  adjacent  to  one  another. 
Therefore ,  a  sector  linkage  map  is  created  for  each  file  that  indicates 
to  the  system  software  which  tracks  and  sectors  conprise  the  entire  file. 
Depending  on  the  size  of  the  file,  it  may  require  one  or  more  sectors  for 
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its  linkage  map.  Even  if  only  part  of  a  sector  is  needed,  MDS-800  allocates 
at  least  one  entire  sector  for  linkage  map  infomnation  per  file  (unused 
bytes  are  filled  with  ASCII  nuls  by  MDS-800).  The  format  for  a  linkage 
map  is  as  follows: 

B¥TE  CCNIEOT/USE 

l-2  Sector  (Byte  1)  and  track  (Byte  2)  of  any  proceeding 

linkage  map  sector  for  the  file.  Both  bytes  are 
nuls  if  this  linkage  map  sector  is  the  first  (or 
only)  sector  of  the  linkage  map. 

3-4  ’  Sector  (Byte  3)  and  track  (Byte  4)  of  any  succeeding 

linkage  map  sector  for  the  file.  Both  bytes  are 
nuls  if  this  linkage  map  sector  is  the  last  for  only) 
sector  of  the  linkage  map. 

5-128  Pairs  of  bytes  in  the  order  sector  -  then  -  track 

linking  sequential  storage  areas  for  the  file's 
contents.  Unused  bytes  are  filled  with  mis  to 
indicate  the  end  of  the  linkage  and  additional 
sectors  (both  preceeding  and  succeeding)  are 
indicated  as  discussed  above.  Since  Bytes  1-4  are 
reserved  for  linking  linkage  map  sectors,  T24 
bytes  are  available  per  linkage  map  sector  for 
file  sector /track  pairs  allowing  62  such  pairs. 

As  described  above,  certain  sectors  on  Tracks  0  and  1  (and  Sector  1  on 
Track  2  as  you'll  see  below)  are  dedicated  as  Linkage  Maps  for  systan 
information  such  as  the  System  Initialization  Program,  Didr  label,  and 
Disk  Directory. 

TRACK  2 

a.  Allocation  Bit  Map  -  Sectors  2  and  3  are  dedicated  to  the  allocation 
bit  map  for  the  diskette.  This  map  is  used  by  MDS-800  to  keep  track  of 
which  sectors  on  the  diskette  are  being  used  (i*e* ..  active)  versus 
unused  (i.e.,  inactive  or  not  yet  used).  One  bit  is  allocated  per  diskette 
sector  (1  =  used,  0  -  unused).  Since  there  are  77  tracks  at  26  sectors 
per  track,  each  diskette  has  a  total  of  2002  sectors  thus  requiring  2002 
allocation  map  bits.  Two  sectors  are  needed  for  the  allocation  bit  map 
since  one  sector  has  a  capacity  of  1024  bits  (i.e. ,  128  bytes/ sector  times 
8  bits/byte. 

b.  Linkage  Map  -  Sector  1  of  Track  2  is  dedicated  as  the  linkage  map  for 
the  allocation  bit  map  described  above. 
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c.  File  Space  -  The  remaining  tracks  and  sectors  on  the  disk  (exclusive 
of  tracks  75  and  76  which  are  reserved  as  spares  to  be  used  only  if  seme 
other  track  is  unusable  due  to  wear)  are  available  for  user  file  data. 
Assigiment  is  made  exclusively  by  MDS-800  or  the  operating  system  of  any 
compatible  non-MDS  system  so  that  the  necessary  directory  entries  and 
linkage  maps  can  be  prepared  and  maintained. 

A  sum  ary  of  the  track/sector  assigiments  described  abewe  is  shown  in 
the  following  table: 


TOACK 

SECTOR(S) 

OCNTENT/USE 

0 

1-23 

MDS  System  Initialization  Program 

II 

24 

Linkage  Map  for  MDS  Systen  Initialization 
Program 

11 

25 

Linkage  map  for  Disk  Label 

II 

26 

Disk  Label 

1 

1 

Linkage  map  for  MDS  Disk  Directory 

ff 

2-26 

MDS  Disk  Directory 

2 

i 

Linkage  map  for  MDS  Allocation  Bit  Map 

2 

2,3 

MDS  allocation  Bit  Map 

It 

4-26*1 

and 

3-74 

1-26  / 

Free  storage  for  data  files  and 
accompanying  linkage  maps 

3-74 

75,76 


1-26 


Trades  reserved  as  spares  to  substitute 
for  worn  out  tracks 


